diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm
index 4b403370c..7a649a4f0 100644
--- a/module/ice-9/pretty-print.scm
+++ b/module/ice-9/pretty-print.scm
@@ -302,7 +302,7 @@ port directly after OBJ, like (pretty-print OBJ PORT)."
 
   (put-string port per-line-prefix)
   (pr obj pp-expr)
-  (newline)
+  (newline port)
   ;; Return `unspecified'
   (if #f #f))