Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -26,10 +26,11 @@
 	
 (import scheme chicken data-structures extras)
 (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18)
 (import commonmod)
 (use (prefix ulex ulex:))
+
 
 ;; Hack to make these functions visible to the refactored code, goal is to eliminate these over time.
 (define (rmt:send-receive . params) #f)
 (define (http-transport:close-connections . params) #f)
 ;; from remote defstruct in common.scm
@@ -120,15 +121,15 @@
                 (mutex-unlock! multi-sync-mutex)))))
     res))
 
 
 
-(define (rmtmod:calc-ro-mode runremote *toppath*)
+(define (rmtmod:calc-ro-mode runremote toppath)
   (if (and runremote
 	   (remote-ro-mode-checked runremote))
       (remote-ro-mode runremote)
-      (let* ((dbfile  (conc *toppath* "/megatest.db"))
+      (let* ((dbfile  (conc toppath "/megatest.db"))
 	     (ro-mode (not (file-write-access? dbfile)))) ;; 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)
@@ -192,7 +193,11 @@
 
 
 
 (define (rmtmod:send-receive-ulex ulex:conn cmd rid params attemptnum area-dat)
   #f)
+
+(use trace)(trace-call-sites #t)
+(trace member rmtmod:calc-ro-mode rmt:open-qry-close-locally)
+
 
 )