diff --git a/code/reader.lisp b/code/reader.lisp
index aeec210559e82161c47c5bd9f85fdbb9680b0fb3..82ae7f07ea056620f115ea7984f079abf86d322f 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.55 2005/04/30 12:35:21 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.56 2005/05/06 20:36:31 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -655,7 +655,9 @@
 	    (let ((nextchar (read-char stream t)))
 	      (cond ((token-delimiterp nextchar)
 		     (cond ((eq listtail thelist)
-			    (%reader-error stream "Nothing appears before . in list."))
+			    (if *read-suppress*
+				(return-from read-list nil)
+				(%reader-error stream "Nothing appears before . in list.")))
 			   ((whitespacep nextchar)
 			    (setq nextchar (flush-whitespace stream))))
 		     (rplacd listtail