diff --git a/scheme/base.sld b/scheme/base.sld
index 9c147353..93cda120 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -407,7 +407,7 @@
                   (else (error "cond-expand: bad feature" x)))
                 (memq 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 (caar ls)) ;(identifier->symbol (caar ls)))
                    (if (pair? (cdr ls))
diff --git a/tests/base.scm b/tests/base.scm
index c67a23b3..28ff2539 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -54,6 +54,7 @@
       (test "o" (read-line p))
     )
   )
+  (else #f)
 )
 
 (test-group