diff --git a/repl-server.rkt b/repl-server.rkt
index 7caff6b..c0a28fe 100644
--- a/repl-server.rkt
+++ b/repl-server.rkt
@@ -88,14 +88,17 @@
 		 (sandbox-error-output out)
 		 (current-namespace (make-empty-namespace)))
     (parameterize ((current-eval (get-user-evaluator username)))
-      (eval `(define say ,(lambda (utterance) (send handle say utterance) (void))))
+      (eval `(define say ,(lambda (utterance)
+			    (printf "   You: ~a\n" (->string/safe utterance))
+			    (send handle say utterance)
+			    (void))))
       (call-with-interaction-prompt-read handle read-eval-print-loop))
     (fprintf out "\nGoodbye!\n")
     (close-input-port in)
     (close-output-port out)))
 
 (define (t-server)
-  (define s (tcp-listen 2322 4 #t "localhost"))
+  (define s (tcp-listen 2322 4))
   (printf "Accepting...\n")
   (tcp-pty-ssh-server s repl-shell #:prompt *prompt*))