From 4c15331a07ceae9694e52ff657eae73f602e9952 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 23 Jun 2012 07:56:00 -0400
Subject: [PATCH] Prepare for contracting of process state.

---
 new-server.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/new-server.rkt b/new-server.rkt
index 386cbee..31f3561 100644
--- a/new-server.rkt
+++ b/new-server.rkt
@@ -3,6 +3,7 @@
 
 (require racket/set)
 (require racket/match)
+(require racket/contract)
 
 (require "ssh-numbers.rkt")
 (require "ssh-transport.rkt")
@@ -21,7 +22,7 @@
      ;; PAPER NOTE: remove #:debug-name for presentation economy
      (spawn tcp-driver #:debug-name 'tcp-driver)
      (spawn tcp-spy #:debug-name 'tcp-spy)
-     (spawn listener))))
+     (spawn listener #:debug-name 'ssh-tcp-listener))))
 
 (define listener
   (transition 'no-state