@@ -27,16 +27,16 @@
 (declare (uses dbfile))
 ;; (declare (uses dbmemmod))
 (declare (uses dbmod))
 (declare (uses tcp-transportmod))
 (include "common_records.scm")
-;; (declare (uses rmtmod))
+(declare (uses rmtmod))
 
 ;; used by http-transport
-(import dbfile) ;; rmtmod)
-
-(import commonmod
+(import dbfile
+	rmtmod
+	commonmod
 ;; 	dbmemmod
 	dbfile
 	dbmod
 	tcp-transportmod)
 
@@ -133,10 +133,12 @@
     (case (rmt:transport-mode)
       ((http)(http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode))
       ((tcp) (tcp-transport-handler  runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
       ((nfs) (nfs-transport-handler  runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
       )))
+
+(rmtmod:send-receive rmt:send-receive) ;; make send-receive available to rmtmod via parameter
 
 (define (nfs-transport-handler  runremote cmd run-id params attemptnum area-dat areapath readonly-mode testsuite mtexe)
   (let* ((keys     (common:get-fields *configdat*))
 	 (dbstruct (dbmod:nfs-get-dbstruct run-id keys (dbfile:db-init-proc) areapath)))
     (api:dispatch-request dbstruct cmd run-id params)))