@@ -65,12 +65,15 @@
     ((get-steps-data)               (apply db:get-steps-data dbstruct params))
 
     ;; MISC
     ((login)                        (apply db:login dbstruct params))
     ((general-call)                 (let ((stmtname   (car params))
-					  (realparams (cdr params)))
-				      (db:general-call dbstruct stmtname realparams)))
+					  (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-back))
     ((kill-server)
      (db:sync-tables (db:tbls *inmemdb*) *inmemdb* *db*)  ;; (db:sync-to *inmemdb* *db*)
      (let ((hostname (car  *runremote*))
 	   (port     (cadr *runremote*))