diff --git a/collects/syntax/struct.ss b/collects/syntax/struct.ss
index 0f88b6a0e2..b6c89cf08e 100644
--- a/collects/syntax/struct.ss
+++ b/collects/syntax/struct.ss
@@ -174,7 +174,8 @@
 				  [(null? l) #t]
 				  [(not (car l)) #f]
 				  [else (loop (cdr l))]))
-			       (append base '(#f)))
+			       (append base '(#f))
+			       base)
 			   base))]
 	     [qs (lambda (x) (if (eq? x #t)
 				 x