diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp
index 0e780877d525cff231584b09120f4093e4131d0c..48f3a3f85eaa57bda9b5463acc10db36d684737b 100644
--- a/pcl/simple-streams/strategy.lisp
+++ b/pcl/simple-streams/strategy.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.3 2003/06/11 16:10:21 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -460,7 +460,7 @@
                               stream char))
           (when (>= ptr max)
 	    (setf (sm outpos stream) ptr)
-	    (setf ptr (dc-flush-buffer stream ptr t)))
+	    (setf ptr (dc-flush-buffer stream t)))
 	  (setf (bref buffer ptr) code)
 	  (incf ptr))))))