Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 437)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 438)
@@ -35,8 +35,5 @@
 
 (defun fresh-line (&optional (stream *standard-output*))
-  (let* ((stream (real-print-stream stream)))
-    (unless (eql 0 (column stream))
-      (terpri stream)
-      t)))
+  (stream-fresh-line (real-print-stream stream)))