Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -165,11 +165,11 @@
 ;;   ;; ulex parameters
 ;;   (work-method 'direct)
 ;;   (return-method 'direct)
   
   ;; ulex parameters
-  (work-method 'mailbox)
+  (work-method   'mailbox)
   (return-method 'mailbox)
   
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 (define *didsomething* #f)  

Index: serialize-env.scm
==================================================================
--- serialize-env.scm
+++ serialize-env.scm
@@ -1,22 +1,5 @@
-(module serialize-envmod
-   *
-(import scheme
-	z3
-	base64
-	chicken.port
-	chicken.pretty-print
-	chicken.process-context
-	chicken.base
-	)
-
-(define (gen-output)
-(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
-       (zipped-env-str (z3:encode-buffer env-str))
-       (b64-env-str    (base64-encode zipped-env-str)))
-  (print b64-env-str))
-)
 
 (module serialize-envmod
    *
 (import scheme
 	z3
@@ -34,8 +17,6 @@
   (print b64-env-str))
 )
 
 (gen-output)
 
-)
-
 )

Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -313,15 +313,16 @@
 			  (send-via-polling uconn host-port cmd data))
 			 ((mailbox) 
 			  (send-via-mailbox uconn host-port cmd data))
 			 (else
 			  (print "ULEX ERROR: unrecognised return-method "(return-method)".")
-			  #f))))))
+			  #f)))))
+	 (duration    (- (current-milliseconds) start-time)))
     ;; this is ONLY for development and debugging. It will be removed once Ulex is stable.
-    (if (< 5000 (- (current-milliseconds) start-time))
-	(print "ULEX WARNING: round-trip took over 5 seconds; "
-	       cmd", host-port="host-port", data="data))
+    (if (< 5000 duration)
+	(print "ULEX WARNING: round-trip took "(inexact->exact (round (/ duration 1000)))
+	       " seconds; "cmd", host-port="host-port", data="data))
     result))
     
 
 ;;======================================================================
 ;; responder side