@@ -249,12 +249,17 @@
 (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")
   (assert *toppath* "FATAL: rmt:send-receive called with *toppath* not set.")
   (let* ((areapath      *toppath*) ;; TODO - resolve from dbstruct to be compatible with multiple areas
 	 (readonly-mode (rmtmod:calc-ro-mode ttdat *toppath*))
-	 (testsuite     (common:get-testsuite-name)))
-    (case (rmt:transport-mode)
+	 (testsuite     (common:get-testsuite-name))
+	 (tmode         (if (rmt:on-homehost?) ;; use tmode instead of rmt:transport-mode to access /tmp db (to be implemented)
+			    (if (> (random 100) 80) ;; 20% of time
+				'tcp
+				'tmp) ;; this mode needs to be implemented
+			    (rmt:transport-mode))))
+    (case (rmt:transport-mode) ;; replace with tmode
       ((tcp)
        (let* ((start-time    (current-seconds)) ;; snapshot time so all use cases get same value
 	      (attemptnum    (+ 1 attemptnum))
 	      (mtexe         (common:find-local-megatest))
 	      (dbfname       (conc (dbfile:run-id->dbnum run-id)".db"))
@@ -912,23 +917,11 @@
 (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*)
   (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)
+    ((tcp nfs)
      (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
@@ -935,11 +928,13 @@
 	   (if runremote
 	       (begin
 		 (tt-ro-mode-set! runremote ro-mode)
 		 (tt-ro-mode-checked-set! runremote #t)
 		 ro-mode)
-	       ro-mode))))))
+	       ro-mode))))
+    (else
+     (assert #f "FATAL: invalid rmt:transport-mode"))))
 
 
 ;;======================================================================
 ;;  S U P P O R T   F U N C T I O N S
 ;;======================================================================
@@ -1014,19 +1009,10 @@
 ;; Move me elsewhere ...
 ;; RADT => Why do we meed the version check here, this is called only if version misma
 ;;
 (define (common:cleanup-db dbstruct #!key (full #f))
   (case (rmt:transport-mode)
-    ((http)
-     (apply db:multi-db-sync 
-	    dbstruct
-	    'schema
-	    'killservers
-	    'adj-target
-	    'new2old
-	    '(dejunk)
-	    ))
     ((tcp nfs)
      (apply db:multi-db-sync 
 	    dbstruct
 	    'schema
 	    'killservers