@@ -3360,11 +3360,11 @@
 			(begin
 			  (debug:print 0 *default-log-port* "ERROR: I only know sqlite3 databases for now: " dbstr)
 			  #f)))))
     (if (and dbpth (file-read-access? dbpth))
 	(let ((db (sqlite3:open-database dbpth))) ;; (open-database dbpth)))
-	  (sqlite3:set-busy-handler! db (make-busy-timeout 10000))
+	  (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 10000))
 	  db)
 	#f)))
 
 ;; sqlite3:path tablename timefieldname varfieldname field1 field2 ...
 ;;