@@ -982,23 +982,36 @@
   (rmt:send-receive 'test-set-archive-block-id run-id (list run-id test-id archive-block-id)))
 
 (define (rmt:test-get-archive-block-info archive-block-id)
   (rmt:send-receive 'test-get-archive-block-info #f (list archive-block-id)))
 
-
 (define (rmtmod:calc-ro-mode runremote *toppath*)
-  (if (and runremote
-	   (remote-ro-mode-checked runremote))
-      (remote-ro-mode runremote)
-      (let* ((mtcfgfile  (conc *toppath* "/megatest.config"))
-	     (ro-mode (not (file-write-access? mtcfgfile)))) ;; TODO: use dbstruct or runremote to figure this out in future
-	(if runremote
-	    (begin
-	      (remote-ro-mode-set! runremote ro-mode)
-	      (remote-ro-mode-checked-set! runremote #t)
-	      ro-mode)
-	    ro-mode))))
+  (case (rmt:transport-mode)
+    ((http)
+     (if (and runremote
+	      (remote-ro-mode-checked runremote))
+	 (remote-ro-mode runremote)
+	 (let* ((mtcfgfile  (conc *toppath* "/megatest.config"))
+		(ro-mode (not (file-write-access? mtcfgfile)))) ;; TODO: use dbstruct or runremote to figure this out in future
+	   (if runremote
+	       (begin
+		 (remote-ro-mode-set! runremote ro-mode)
+		 (remote-ro-mode-checked-set! runremote #t)
+		 ro-mode)
+	       ro-mode))))
+    ((tcp)
+     (if (and runremote
+	      (tt-ro-mode-checked runremote))
+	 (tt-ro-mode runremote)
+	 (let* ((mtcfgfile  (conc *toppath* "/megatest.config"))
+		(ro-mode (not (file-write-access? mtcfgfile)))) ;; TODO: use dbstruct or runremote to figure this out in future
+	   (if runremote
+	       (begin
+		 (tt-ro-mode-set! runremote ro-mode)
+		 (tt-ro-mode-checked-set! runremote #t)
+		 ro-mode)
+	       ro-mode))))))
 
 (define (extras-readonly-mode rmt-mutex log-port cmd params)
   (mutex-unlock! rmt-mutex)
   (debug:print-info 12 log-port "rmt:send-receive, case 3")
   (debug:print 0 log-port "WARNING: write transaction requested on a readonly area.  cmd="cmd" params="params)