diff --git a/pcl/simple-streams/external-formats/ascii.lisp b/pcl/simple-streams/external-formats/ascii.lisp
index d988ce9179061a9ecd90d7c379a397a990fc3816..bd7b9986cdd95094a466f65686624934ce11d026 100644
--- a/pcl/simple-streams/external-formats/ascii.lisp
+++ b/pcl/simple-streams/external-formats/ascii.lisp
@@ -4,7 +4,7 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.3 2010/07/05 04:12:47 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.4 2010/07/07 13:04:04 rtoy Exp $")
 
 (in-package "STREAM")
 
@@ -17,11 +17,11 @@
 		   (if ,error
 		       (funcall ,error "Invalid octet #x~4,'0X for ASCII" ,c 1)
 		       +replacement-character-code+))
-	       1))
+	       1)))
   (code-to-octets (code state output error)
     `(,output (if (> ,code #x7F)
 		  (if ,error
 		      (funcall ,error "Cannot output codepoint #x~X to ASCII stream" ,code)
 		      #x3F)
-		  ,code)))))
+		  ,code))))