diff --git a/code/reader.lisp b/code/reader.lisp
index f1fb2aa6aa3a84520cc7af9e33f11a00dd2d84b7..2cbe99f73ec683628573ec2368f9dcfa97638d8c 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.41 2003/09/08 17:34:25 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.42 2003/09/08 17:34:57 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1546,15 +1546,15 @@
 	    (cond ((not any-digits)
 		   (if junk-allowed
 		       (values nil real-index)
-		     (error 'simple-parse-error
-			    :format-control "There are no digits in this string: ~S"
-			    :format-arguments (list string))))
-		((and (< index end) (not junk-allowed))
-		 (error 'simple-parse-error
-			:format-control "There's junk in this string: ~S."
-			:format-arguments (list string)))
-		(t
-		 (values (* sign result) real-index)))))))))
+		       (error 'simple-parse-error
+			      :format-control "There are no digits in this string: ~S"
+			      :format-arguments (list string))))
+		  ((and (< index end) (not junk-allowed))
+		   (error 'simple-parse-error
+			  :format-control "There's junk in this string: ~S."
+			  :format-arguments (list string)))
+		  (t
+		   (values (* sign result) real-index)))))))))
 
 
 ;;;; Reader initialization code.