Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -67,18 +67,27 @@
      (else #f)))
 
 ;;======================================================================
 
 (define *send-receive-mutex* (make-mutex)) ;; should have separate mutex per run-id
-
+(define *ttdat* #f)
 ;; how to make area-dat
 (define (rmt:set-ttdat areapath ttdat)
   (if ttdat
-      ttdat
-      (let* ((newremote  (make-and-init-remote areapath)))
-	(set! *ttdat* newremote)
-	newremote)))
+    ttdat
+    (if *ttdat*
+       *ttdat*
+       (begin
+         (debug:print-info 2 *default-log-port* "rmt:set-ttdat: Initialize new ttdat")
+         (let* ((newremote  (make-and-init-remote areapath)))
+           (set! *ttdat* newremote)
+	   newremote
+         )
+       )
+     )
+   )
+)
 
 ;; NB// area-dat replaced by ttdat
 ;; 
 (define (rmt:send-receive cmd run-id params #!key (attemptnum 1)(ttdat #f))
   (assert (or (not run-id) (number? run-id)) "FATAL: run-id is required to be a number or #f")