@@ -2450,11 +2450,11 @@
 ;;      (if (not (server:choose-server *toppath* 'home?))
 ;;	  (begin
 ;;	    (debug:print 0 *default-log-port* "Servers are not running on this host or no servers alive. Cannot run cleanup-db")
 ;;	    (exit 1)))
 
-      (let ((dbstructs (db:setup #f)))
+      (let ((dbstructs (db:setup)))
         (common:cleanup-db dbstructs))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-mark-incompletes")
     (begin