Index: tests/simplerun/debug.scm
==================================================================
--- tests/simplerun/debug.scm
+++ tests/simplerun/debug.scm
@@ -7,24 +7,41 @@
   ;; rmt:drop-conn
   ;; rmt:send-receive
   ;; rmt:log-to-main
   )
 
-(define th1 
-  (make-thread
-    (lambda ()
-(let loop ((r 1)
-	   (i 1))
-   (print "register-test "r" test"i)
-   (rmt:register-test r "test1" (conc "item_" i))
-   (if (< i 100000)
-       (loop r (+ i 1))
-       (if (< r 100)
-	   (begin
-	      (print "get-tests-for-run "r)
-              (rmt:get-tests-for-run r "%" '() '() 0 #f #f #f #f #f 0 #f)
- 	      (loop (+ r 1) 0)))))
-)))
-(thread-start! th1)
-(thread-join! th1)
+
+(module junk
+	*
+
+  (import big-chicken rmtmod apimod dbmod srfi-18)
+  
+(define (make-run-id)
+  (let* ((s (conc (current-process-id)))
+	 (l (string-length s)))
+    (string->number (conc (string-ref s (- l 1))))))
+
+(define (run)
+  (let* ((th1 (make-thread
+	       (lambda ()
+		 (let loop ((r (* 20 (make-run-id)))
+			    (i 1))
+		   (print "register-test "r" test"i)
+		   (rmt:register-test r "test1" (conc "item_" i))
+		   (if (< i 100000)
+		       (loop r (+ i 1))
+		       (if (< r 100)
+			   (begin
+			     (print "get-tests-for-run "r)
+			     (rmt:get-tests-for-run r "%" '() '() 0 #f #f #f #f #f 0 #f)
+			     (loop (+ r 1) 0)))))
+		 ))))
+    (thread-start! th1)
+    (thread-join! th1)))
+
+)
+
+(import junk)
+(run)
+
 
 

Index: ulex-trials/ulex-test.scm
==================================================================
--- ulex-trials/ulex-test.scm
+++ ulex-trials/ulex-test.scm
@@ -1,6 +1,8 @@
-(module nng-test *
+(include "../ulex/ulex.scm")
+
+(module ulex-test *
 	
 (import scheme
 	(chicken io)
 	(chicken base)
 	(chicken time)
@@ -8,21 +10,23 @@
 	(chicken file posix)
         (chicken string)
 	(chicken process-context)
 	(chicken process-context posix)
         miscmacros
-        nng
+;;         nng
         srfi-18
 	srfi-69
         test
 	matchable
 	typed-records
 	system-information
 	directory-utils
+
+	ulex
 	)
 
-(define help "Usage: nng-test COMMAND
+(define help "Usage: ulex-test COMMAND
   where COMMAND is one of:
     do-test              : run the basic req/rep test
     run tcp://host:port  : start test server - start several in same dir
 ")