diff --git a/pcl/simple-streams/impl.lisp b/pcl/simple-streams/impl.lisp
index 86cf555542b7c05306d299136b5ffa4a5068ff24..5c020c033176d616e1fcc8c6f48dd0bac875725b 100644
--- a/pcl/simple-streams/impl.lisp
+++ b/pcl/simple-streams/impl.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.12 2009/08/10 16:47:41 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.13 2009/08/11 03:32:25 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,7 +18,7 @@
 
 (defun %check (stream kind)
   (declare (type simple-stream stream)
-	   (optimize (speed 3) (space 1) (debug 0) (safety 0)))
+	   (optimize (speed 3) (space 1) #+(or)(debug 0) (safety 0)))
   (with-stream-class (simple-stream stream)
     (cond ((not (any-stream-instance-flags stream :simple))
 	   (%uninitialized stream))
diff --git a/pcl/simple-streams/internal.lisp b/pcl/simple-streams/internal.lisp
index 40649c19cf851daa7ec861ce537710458ca18c99..695239f34e650b6f12bfa44601f3803d245bdfe8 100644
--- a/pcl/simple-streams/internal.lisp
+++ b/pcl/simple-streams/internal.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.9 2009/08/10 16:47:41 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.10 2009/08/11 03:32:25 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -78,7 +78,7 @@
 	   (type (or null kernel:simple-stream-buffer) buffer)
 	   (type fixnum start)
 	   (type (or null fixnum) end)
-	   (optimize (speed 3) (space 2) (safety 0) (debug 0)))
+	   (optimize (speed 3) (space 2) (safety 0) #+(or)(debug 0)))
   (with-stream-class (simple-stream stream)
     (let ((fd (sm input-handle stream))
 	  (end (or end (sm buf-len stream)))