Index: sqlite3.scm
===================================================================
--- sqlite3.scm	(revision 22247)
+++ sqlite3.scm	(working copy)
@@ -574,7 +574,7 @@
 (define (make-busy-timeout timeout)
   (define (thread-sleep!/ms ms)
     (thread-sleep!
-      (milliseconds->time (+ ms (current-milliseconds)))))
+      (/ (+ ms (current-milliseconds)) 1000)))
   (let* ([delays '#(1 2 5 10 15 20 25 25 25 50 50 100)]
    [totals '#(0 1 3  8 18 33 53 78 103 128 178 228)]
    [ndelay (vector-length delays)])