--- /home/jfw/build/Scheme/chicken-core/expand.scm	2013-11-05 15:42:53.000000000 +0100
+++ expand.scm	2013-11-14 14:23:36.970883179 +0100
@@ -1142,7 +1142,7 @@
 	    (let ((clause (car clauses))
 		  (rclauses (cdr clauses)) )
 	      (##sys#check-syntax 'cond clause '#(_ 1))
-	      (cond ((c %else (car clause))
+	      (cond ((or (c %else (car clause)) (eq? #t (car clause)))
 		     (expand rclauses #t)
 		     `(##core#begin ,@(cdr clause)))
 		    (else?