Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -170,10 +170,12 @@
 			     (let ((dat (server:receive rep)))
 			       (set! last-msg-time (current-seconds))
 			       ;; (print "received: " pktdat)
 			       (if (not (eof-object? dat))
 				   (let ((resdat (proc dat)))
+				     (print "Got " dat)
+				     (print "Responding with " resdat)
 				     (nmsg:send rep (with-output-to-string (lambda ()(write resdat))))
 				     (loop))))))
 			 "message handler"))
 	 (th2           (make-thread
 			 (lambda ()