Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2141,12 +2141,13 @@
 ;; check space in dbdir and in megatest dir
 ;; returns: ok/not dbspace required-space
 ;;
 (define (common:check-db-dir-space)
   (let* ((required (string->number 
+                    ;; default is 1GB (or actually a billion bytes) This is the number of 1 kB blocks.
 		    (or (configf:lookup *configdat* "setup" "dbdir-space-required")
-			"100000")))
+			"1000000")))
 	 (dbdir    (common:get-db-tmp-area)) ;; (db:get-dbdir))
 	 (tdbspace (common:check-space-in-dir dbdir required))
 	 (mdbspace (common:check-space-in-dir *toppath* required)))
     (sort (list tdbspace mdbspace) (lambda (a b)
 				     (< (cadr a)(cadr b))))))