diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index 1e1ea13f47..30a1c4a68d 100644
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@@ -601,7 +601,8 @@
 ;;>   Swindle values in errors, when using `printf' etc.
 (define* (install-swindle-printer)
   (global-port-print-handler write-object)
-  (current-print write-object) ; see PR7782
+  (current-print ; see PR7782
+   (lambda (x) (unless (void? x) (write-object x) (newline))))
   (port-display-handler (current-output-port) display-object)
   (port-display-handler (current-error-port)  display-object)
   (port-write-handler   (current-output-port) write-object)