@@ -71,11 +71,11 @@
 					  (run-id     (cadr params))
 					  (realparams (cddr params)))
 				      (db:with-db dbstruct run-id #t ;; these are all for modifying the db
 						  (lambda (db)
 						    (db:general-call db stmtname realparams)))))
-    ((sync-inmem->db)               (db:sync-touched dbstruct force-sync: #t))
+    ((sync-inmem->db)               (db:sync-touched dbstruct run-id force-sync: #t))
     ;; ((kill-server)
     ;;  (db:sync-tables (db:tbls *inmemdb*) *inmemdb* *db*)  ;; (db:sync-to *inmemdb* *db*)
     ;;  (let ((hostname (car  *runremote*))
     ;;        (port     (cadr *runremote*))
     ;;        (pid      (if (null? params) #f (car params)))