Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -381,11 +381,11 @@
 ;; 		    (host-information (current-hostname))))))
 
 
 )
 
-(import ulex trace big-chicken srfi-18 test matchable)
+(import ulex trace big-chicken srfi-18 test matchable system-information)
 (trace-call-sites #t)
 (trace
  ;; ulex-handler
  ;; send
  ;; add-to-work-queue
@@ -406,17 +406,18 @@
 
 (pp-uconn uconn)
 
 ;; super basic loop back test
 (define res #f)
+(define targhost (conc (get-host-name)":"4242))
 (define th1 (make-thread (lambda ()
-			   (test #f 10 (send-receive uconn "zeus:4242" 'calc "(+ 5 5)"))
-			   (set! res (send-receive uconn "zeus:4242" 'ping '()))
-			   (test #f 'pong (send-receive uconn "zeus:4242" 'ping '()))
+			   (test #f 10 (send-receive uconn targhost 'calc "(+ 5 5)"))
+			   (set! res (send-receive uconn targhost 'ping '()))
+			   (test #f 'pong (send-receive uconn targhost 'ping '()))
 			   )))
 
 (thread-start! th1)
 (thread-join! th1)
 		
 (print "All done")
 (print "Received "res)