@@ -9,11 +9,11 @@
 (define (client-send-receive soc msg)
   (nn-send soc msg)
   (nn-recv soc))
 
 (define ((talk-to-server soc))
-  (let loop ((cnt 20))
+  (let loop ((cnt 2000))
     (let ((name (list-ref '("Matt" "Tom" "Bob" "Jill" "James" "Jane")(random 6))))
       (print "Sending " name)
       (print (client-send-receive req name))
       (if (> cnt 0)(loop (- cnt 1)))))
   (print (client-send-receive req "quit"))