diff --git a/repl.lisp b/repl.lisp
index 4a8b0af..af52c25 100755
--- a/repl.lisp
+++ b/repl.lisp
@@ -176,7 +176,6 @@ based on SBCLI")
                              (char x           n)))
               (cdr items))
        (setf lst n)))
-   (write lst)
    (subseq (car items) 0 (1+ lst))))
 
 (defun starts-with (text)