@@ -253,11 +253,11 @@
 	(print "ERROR: invalid path for storing database: " path))))
 
 (define (open-run-close-exception-handling proc idb . params)
   (handle-exceptions
    exn
-   (let ((sleep-time (random 30))
+   (let ((sleep-time (pseudo-random-integer 30))
          (err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
      (case err-status
        ((busy)
         (thread-sleep! sleep-time))
        (else