diff --git a/gui-lib/mrlib/interactive-value-port.rkt b/gui-lib/mrlib/interactive-value-port.rkt
index f7e0e63f..df306555 100644
--- a/gui-lib/mrlib/interactive-value-port.rkt
+++ b/gui-lib/mrlib/interactive-value-port.rkt
@@ -25,7 +25,7 @@
     (port-write-handler
      port
      (λ (val port)
-       (do-printing pretty-print val port snip-handler))))
+       (do-printing pretty-write val port snip-handler))))
   
   (define (set-interactive-print-handler port #:snip-handler [snip-handler #f])
     (port-print-handler