@@ -69,11 +69,11 @@
     ((general-call)                 (let ((stmtname   (car params))
 					  (realparams (cdr params)))
 				      (db:general-call db stmtname realparams)))
     ((sync-inmem->db)               (db:sync-back))
     ((kill-server)
-     (db:sync-to *inmemdb* *db*)
+     (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)))
 	   (th1      (make-thread (lambda ()(thread-sleep! 3)(debug:print 0 "Server exiting!")(exit 0)) "Server exit thread")))
        (debug:print 0 "WARNING: Server on " hostname ":" port " going down by user request!")