Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -109,11 +109,11 @@
 ;;     (filedb:get-path db id)))
 
 ;; This routine creates the db. It is only called if the db is not already opened
 ;; 
 (define (db:open-rundb dbstruct run-id) ;;  (conc *toppath* "/megatest.db") (car *configinfo*)))
-  (let ((rdb (dbr:dbstruct-get-runrec dbstruct run-id 'inmem)))
+  (let ((rdb (dbr:dbstruct-get-runvec-val dbstruct run-id 'inmem))) ;; dbr:dbstruct-get-runvec-val 
     (if rdb
 	rdb
 	(let* ((local        (dbr:dbstruct-get-local dbstruct))
 	       (toppath      (dbr:dbstruct-get-path dbstruct))
 	       (dbpath       (conc toppath "/db/" run-id ".db"))

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -431,17 +431,17 @@
       (let ((start-time (current-milliseconds))
 	    (sync-time  #f)
 	    (rem-time   #f))
 	(if *inmemdb* (db:sync-touched *inmemdb* force-sync: #t))
 	(set! sync-time  (- (current-milliseconds) start-time))
-	(set! rem-time (quotient (- 4000 sync-time) 1000))
+	(set! rem-time (/ (- 4000 sync-time) 1000))
 	(debug:print 0 "SYNC: time= " sync-time ", rem-time=" rem-time)
 	(if (and (<= rem-time 4)
 		 (> rem-time 0))
 	    (thread-sleep! rem-time)
 	    (thread-sleep! 4))) ;; fallback for if the math is changed ...
-
+      
       ;; (thread-sleep! 4) ;; no need to do this very often
 
       (if (< count 1) ;; 3x3 = 9 secs aprox
 	  (loop (+ count 1)))