Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -531,11 +531,11 @@
      ;;
      (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
       (handle-exceptions
        exn
        (begin
-	 (db:move-and-recreate-db dbdat)
+	 ;; (db:move-and-recreate-db dbdat)
 	 (if (> numtries 0)
 	     (db:repair-db dbdat numtries: (- numtries 1))
 	     #f)
 	 (debug:print 0 "FATAL: file " dbpath " was found corrupted, an attempt to fix has been made but you must start over.")
 	 (debug:print 0