diff --git a/scheme/tty-debug.scm b/scheme/tty-debug.scm
index 44b5cea..bc7741f 100644
--- a/scheme/tty-debug.scm
+++ b/scheme/tty-debug.scm
@@ -18,7 +18,7 @@
 	(with-current-output-port*
 	 *tty-port*
 	 (lambda ()
-	   (for-each display args)
+	   (for-each write args)
 	   (newline)
 	   (flush-tty/output *tty-port*))))))