diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a91d4d739c94bca4d208b5e74870d5b1f6b381f2..b5d34ad0dc4adac84f088dc518df6d4d9df7a401 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -829,6 +829,7 @@
 		 (flet
 		     ((convert-buffer ()
 			(let ((old-state (fd-stream-oc-state stream)))
+			  #+(or debug-frc-sr)
 			  (format t "old-state = ~S~%" old-state)
 			  (multiple-value-bind (s char-count octet-count new-state)
 			      (stream::octets-to-string-counted