Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -67,10 +67,11 @@
 	mailbox
 	matchable
 	queues
 	regex
 	regex-case
+	s11n
 	srfi-1
 	srfi-18
 	srfi-4
 	srfi-69
 	system-information
@@ -197,12 +198,12 @@
 	    exn
 	    #f
 	  (let-values (((inp oup)(tcp-connect host-port)))
 	    (let ((res (if (and inp oup)
 			   (begin
-			     (write dat oup)
-			     (read inp)) ;; yes, we always want an ack
+			     (serialize dat oup)
+			     (deserialize inp)) ;; yes, we always want an ack
 			   (begin
 			     (print "ERROR: send called but no receiver has been setup. Please call setup first!")
 			     #f))))
 	      (close-input-port inp)
 	      (close-output-port oup)
@@ -282,13 +283,13 @@
 ;;
 (define (ulex-cmd-loop uconn)
   (let* ((serv-listener (udat-socket uconn)))
     (let loop ((state 'start))
       (let-values (((inp oup)(tcp-accept serv-listener)))
-	(let* ((rdat  (read inp)) ;; '(my-host-port qrykey cmd params)
+	(let* ((rdat  (deserialize inp)) ;; '(my-host-port qrykey cmd params)
 	       (resp  (ulex-handler uconn rdat)))
-	  (if resp (write resp oup))
+	  (if resp (serialize resp oup))
 	  (close-input-port inp)
 	  (close-output-port oup))
 	(loop state)))))
 
 ;; add a proc to the cmd list, these are done symetrically (i.e. in all instances)