@@ -65,11 +65,11 @@
   (let* ((start-ms (current-milliseconds))
 	 (db       (if idb idb (open-db)))
 	 (res      (apply proc db params)))
     (if (not idb)(sqlite3:finalize! db))
     ;; scale by 10, average with current value.
-    (set! *global-delta* (/ (+ *global-delta* (/ (- (current-milliseconds) start-ms) 100)) 2))
+    (set! *global-delta* (/ (+ *global-delta* (/ (- (current-milliseconds) start-ms) 200)) 2))
     (debug:print 4 "INFO: delta=" *global-delta*)
     res))
 
 (define (db:initialize db)
   (let* ((configdat (car *configinfo*))  ;; tut tut, global warning...