diff --git a/pcl/simple-streams/external-formats/iso8859-2.lisp b/pcl/simple-streams/external-formats/iso8859-2.lisp
index a5e869f33929cc53894c801eb98cc2127008d797..a64b21803dcedffe2b64687aaf0a71a3a64ba9eb 100644
--- a/pcl/simple-streams/external-formats/iso8859-2.lisp
+++ b/pcl/simple-streams/external-formats/iso8859-2.lisp
@@ -4,7 +4,7 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.4 2010/07/02 23:13:11 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.5 2010/07/07 21:59:49 rtoy Exp $")
 
 (in-package "STREAM")
 
@@ -29,9 +29,9 @@
   (code-to-octets (code state output error present)
     `(,output (if (< ,code 160)
 		  ,code
-		  (let ((,code (get-inverse ,itable ,code)))
+		  (let ((,present (get-inverse ,itable ,code)))
 		    (if ,code
-			(+ (the (unsigned-byte 7) ,code) 160)
+			(+ (the (unsigned-byte 7) ,present) 160)
 			(if ,error
 			    (funcall ,error "Cannot output codepoint #x~X to ISO8859-2 stream" ,code)
 			    #x3F)))))))
diff --git a/pcl/simple-streams/external-formats/mac-roman.lisp b/pcl/simple-streams/external-formats/mac-roman.lisp
index 5b0b1ecd67359466282412833228a3f295f3ce95..8db4ceca57aa4403fde28bea61139266dc4ee8a3 100644
--- a/pcl/simple-streams/external-formats/mac-roman.lisp
+++ b/pcl/simple-streams/external-formats/mac-roman.lisp
@@ -4,7 +4,7 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.5 2010/07/02 23:13:11 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.6 2010/07/07 21:59:49 rtoy Exp $")
 
 (in-package "STREAM")
 
@@ -34,9 +34,9 @@
   (code-to-octets (code state output error present)
     `(,output (if (< ,code 128)
 		  ,code
-		  (let ((,code (get-inverse ,itable ,code)))
-		    (if ,code
-			(+ (the (unsigned-byte 7) ,code) 128)
+		  (let ((,present (get-inverse ,itable ,code)))
+		    (if ,present
+			(+ (the (unsigned-byte 7) ,present) 128)
 			(if ,error
 			    (funcall ,error "Cannot output codepoint #x~X to MAC-ROMAN stream"
 				     ,code)