Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -59,10 +59,11 @@
 			"-test"
 			"-debug"
 			"-host" 
 			) 
 		 (list  "-h"
+			"-use-server"
 			"-guimonitor"
 			"-main"
 			"-v"
 			"-q"
 		       )
@@ -83,11 +84,13 @@
 
 (if (args:get-arg "-host")
     (begin
       (set! *runremote* (string-split (args:get-arg "-host" ":")))
       (client:launch))
-    (client:launch))
+    (if (not (args:get-arg "-use-server"))
+	(set! *transport-type* 'fs) ;; force fs access
+	(client:launch)))
 
 ;; HACK ALERT: this is a hack, please fix.
 (define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db"))))
 ;; (client:setup *db*)
 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -260,10 +260,20 @@
 	      (sqlite3:execute db "PRAGMA synchronous = FULL;")
 	      (debug:print-info 11 "Initialized test database " dbpath)
 	      (db:testdb-initialize db)))
 	;; (sqlite3:execute db "PRAGMA synchronous = 0;")
 	(debug:print-info 11 "open-test-db END (sucessful)" testpath)
+	;; now let's test that everything is correct
+	(handle-exceptions
+	 exn
+	 (begin
+	   (debug:print 0 "ERROR: problem accessing test db " testpath ", you probably should clean and re-run this test"
+			((condition-property-accessor 'exn 'message) exn))
+	   #f)
+	 ;; Is there a cheaper single line operation that will check for existance of a table
+	 ;; and raise an exception ?
+	 (sqlite3:execute db "SELECT id FROM test_data LIMIT 1;"))
 	db)
       (begin
 	(debug:print-info 11 "open-test-db END (unsucessful)" testpath)
 	#f)))
 

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.54)
+(define megatest-version 1.5402)