@@ -4630,11 +4630,11 @@
 			 (set! *time-to-exit* #t)
 			 #t))))
     (debug:print-info 4 *default-log-port* "starting exit process, finalizing databases.")
     (if (and no-hurry
 	     (debug:debug-mode 18))
-	(rmt:print-db-stats))
+	(dbmod:print-db-stats))
     (let ((th1 (make-thread (lambda () ;; thread for cleaning up, give it five seconds
                               (if *dbstruct-dbs* (db:close-all *dbstruct-dbs*)) ;; one second allocated
 			      (if (list? *on-exit-procs*)
 				  (for-each
 				   (lambda (proc)