diff --git a/new-server.rkt b/new-server.rkt
index 9bc2443..4ad0744 100644
--- a/new-server.rkt
+++ b/new-server.rkt
@@ -64,10 +64,9 @@
   (endpoint my-orientation topic #:observer
 	    #:let-name endpoint-name
 	    #:state state
-	    #:on-presence (begin (printf "WAIT ENDED: ~v\n" topic)
-				 (sequence-actions (transition state
-						     (delete-endpoint endpoint-name)
-						     action ...)))))
+	    #:on-presence (sequence-actions (transition state
+					      (delete-endpoint endpoint-name)
+					      action ...))))
 
 (define (session-vm new-conversation)
   (match-define (tcp-channel remote-addr local-addr _) new-conversation)
@@ -103,11 +102,8 @@
 	      ;; Wait for the reader and writer get started, then tell
 	      ;; the reader we are ready for a single packet and spawn
 	      ;; the session manager.
-	      (printf "BOO\n")
 	      (wait-as #:subscriber (inbound-packet (wild) (wild) (wild) (wild))
-		       (printf "YAY\n") (flush-output)
 		       (wait-as #:publisher (outbound-packet (wild))
-				(printf "ALSO YAY\n") (flush-output)
 				(send-message (inbound-credit 1))
 				(spawn #:debug-name 'ssh-session
 				       #:pid session-pid