@@ -6,11 +6,11 @@
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 (include "common.scm")
-(define megatest-version 1.17)
+(include "megatest-version.scm")
 
 (define help (conc "
 Megatest, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright Matt Welland 2006-2011
@@ -52,10 +52,11 @@
                             and -testpatt
   -keepgoing              : continue running until no jobs are \"LAUNCHED\" or
                             \"NOT_STARTED\"
   -rerun FAIL,WARN...     : re-run if called on a test that previously ran (nullified
                             if -keepgoing is also specified)
+  -rebuild-db             : bring the database schema up to date
 
 Helpers
   -runstep stepname  ...  : take remaining params as comand and execute as stepname
                             log will be in stepname.log. Best to put command in quotes
   -logpro file            : with -exec apply logpro file to stepname.log, creates
@@ -98,10 +99,11 @@
 		        "-gui"
 			"-runall"    ;; run all tests
 			"-remove-runs"
 			"-keepgoing"
 			"-usequeue"
+			"-rebuild-db"
 			"-v" ;; verbose 2, more than normal (normal is 1)
 			"-q" ;; quiet 0, errors/warnings only
 		       )
 		 args:arg-hash
 		 0))
@@ -653,10 +655,26 @@
 (if (args:get-arg "-gui")
     (begin
       (debug:print 0 "Look at the dashboard for now")
       ;; (megatest-gui)
       (set! *didsomething* #t)))
+
+;;======================================================================
+;; Update the database schema on request
+;;======================================================================
+
+(if (args:get-arg "-rebuild-db")
+    (begin
+      (if (not (setup-for-run))
+	  (begin
+	    (debug:print 0 "Failed to setup, exiting") 
+	    (exit 1)))
+      ;; now can find our db
+      (set! db (open-db))
+      (patch-db db)
+      (sqlite3:finalize! db)
+      (set! *didsomething* #t)))
 
 (if (not *didsomething*)
     (debug:print 0 help))
 
 (if (not (eq? *globalexitstatus* 0))