diff --git a/lib/init-7.scm b/lib/init-7.scm
index 009b5e5d..52f413fc 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -563,7 +563,7 @@
              (else (error "cond-expand: bad feature" x)))
            (memq (identifier->symbol x) *features*)))
      (let expand ((ls (cdr expr)))
-       (cond ((null? ls) (error "cond-expand: no expansions" expr))
+       (cond ((null? ls))  ; (error "cond-expand: no expansions" expr)
              ((not (pair? (car ls))) (error "cond-expand: bad clause" (car ls)))
              ((eq? 'else (identifier->symbol (caar ls)))
               (if (pair? (cdr ls))