Index: ulex-simple/ulex.scm
==================================================================
--- ulex-simple/ulex.scm
+++ ulex-simple/ulex.scm
@@ -267,10 +267,28 @@
 	       (resp  (ulex-handler uconn rdat)))
 	  (if resp (serialize resp oup))
 	  (close-input-port inp)
 	  (close-output-port oup))
 	(loop state)))))
+;;(define (ulex-cmd-loop uconn)
+;;  (let* ((serv-listener (udat-socket uconn))
+;;	 ;; (old-listener      (lambda ()
+;;	 ;; 		      (let loop ((state 'start))
+;;	 ;; 			(let-values (((inp oup)(tcp-accept serv-listener)))
+;;	 ;; 			  (let* ((rdat  (deserialize inp)) ;; '(my-host-port qrykey cmd params)
+;;	 ;; 				 (resp  (ulex-handler uconn rdat)))
+;;	 ;; 			    (if resp (serialize resp oup))
+;;	 ;; 			    (close-input-port inp)
+;;	 ;; 			    (close-output-port oup))
+;;	 ;; 			  (loop state)))))
+;;	 (server       (make-tcp-server
+;;			serv-listener
+;;			(lambda ()
+;;			  (let* ((rdat  (deserialize )) ;; '(my-host-port qrykey cmd params)
+;;				 (resp  (ulex-handler uconn rdat)))
+;;			    (if resp (serialize resp) resp))))))
+;;    (server)))
 
 ;; add a proc to the cmd list, these are done symetrically (i.e. in all instances)
 ;; so that the proc can be dereferenced remotely
 ;;
 (define (set-work-handler uconn proc)

Index: ulex.scm
==================================================================
--- ulex.scm
+++ ulex.scm
@@ -18,7 +18,7 @@
 
 ;;======================================================================
 
 (declare (unit ulex))
 
-(include "ulex/ulex.scm")
-;; (include "ulex-simple/ulex.scm")
+;; (include "ulex/ulex.scm")
+(include "ulex-simple/ulex.scm")