From 98ed50954255f2a7f5e84da48e904b0d6a35b84c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Aug 2005 03:21:37 +0000
Subject: [PATCH] fixed bug in build-struct-expand-info

svn: r543
---
 collects/syntax/struct.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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