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