Index: /trunk/ccl/level-1/l1-reader.lisp
===================================================================
--- /trunk/ccl/level-1/l1-reader.lisp	(revision 913)
+++ /trunk/ccl/level-1/l1-reader.lisp	(revision 914)
@@ -1041,5 +1041,7 @@
             (multiple-value-bind (form form-p) (%parse-expression stream ch nil)
               (if form-p
-                 (return form))))))))
+                 (if *read-suppress*
+                     (return nil)
+                     (return form)))))))))