diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index ef9c3dcee..389a9c609 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -362,7 +362,7 @@
     t))
 
 (defmethod stream-fresh-line ((stream ansi-stream))
-  (cl:fresh-line ansi-stream))
+  (cl:fresh-line stream))
 
 
 ;; INPUT-STREAM-P