diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp
index 03e0f1ba63bba581b5417ea924a7860017806b79..7ee806ab50afb1512e50c716b06c4e9707ba659c 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.18 2009/07/23 21:37:00 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.19 2009/07/24 01:08:37 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -610,7 +610,6 @@
 (declaim (ftype j-write-chars-fn (dc write-chars :ef)))
 (defun (dc write-chars :ef) (string stream start end)
   (with-stream-class (dual-channel-simple-stream stream)
-    (format t "dc write-chars ~%")
     (funcall (%dc-write-chars-fn (sm external-format stream))
 	     string stream start end)))