@@ -143,10 +143,11 @@
     (if (or (not base-dir)
 	    (not (file-exists? base-dir)))
 	(begin
 	  (debug:print 0 "ERROR: Bad configuration! base-dir " base-dir " not found")
 	  (exit 1)))
+    (print datadir)
     (if (not (file-exists? datadir))
 	(begin
 	  (debug:print 0 "ERROR: Bad version (" version ") or iteration (" iteration "), no data found at " datadir "." )
 	  (exit 1)))
     
@@ -371,10 +372,11 @@
 	 (user          (current-user-name))
 	 (allowed-users (string-split
 			 (or (configf:lookup configdat "settings" "allowed-users")
 			     "")))
 	 (default-area  (configf:lookup configdat "settings" "default-area"))) ;; otherwise known as the package
+    
     (if (not base-dir)
 	(begin
 	  (debug:print 0 "[settings]\nbase-dir /some/path\n\n Is MISSING from the config file!")
 	  (exit)))
     (if (null? allowed-users)