Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -19,11 +19,11 @@
 (declare (uses dbi))
 (declare (uses pkts))
 (declare (uses stml2))
 (declare (uses cookie))
 (declare (uses csv-xml))
-(declare (uses hostinfo))
+;; (declare (uses hostinfo))
 
 (declare (uses adjutant))
 (declare (uses archivemod))
 (declare (uses apimod))
 (declare (uses autoload))
@@ -130,11 +130,11 @@
 
 	  ;; local modules
 	  autoload
 	  adjutant
 	  csv-xml
-	  hostinfo
+	  ;; hostinfo
 	  mtver
 	  mutils
 	  cookie
 	  csv-xml
 	  ducttape-lib

Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -232,16 +232,17 @@
 	  ;; (mutex-lock! *send-mutex*)
 	  (let-values (((inp oup)(tcp-connect host-port)))
 	    (let ((res (if (and inp oup)
 			   (begin
 			     (serialize dat oup)
+			     (close-output-port oup)
 			     (deserialize inp))
 			   (begin
 			     (print "ERROR: send called but no receiver has been setup. Please call setup first!")
 			     #f))))
 	      (close-input-port inp)
-	      (close-output-port oup)
+	      ;; (close-output-port oup)
 	      ;; (mutex-unlock! *send-mutex*)
 	      res)))))))) ;; res will always be 'ack unless return-method is direct
   
 ;; send a request to the given host-port and register a mailbox in udata
 ;; wait for the mailbox data and return it