@@ -30,23 +30,23 @@
 (include "runs.scm")
 (include "gui.scm")
 (include "dashboard-tests.scm")
 (include "megatest-version.scm")
 
-(define help "
-Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
-  version 0.2
+(define help (conc 
+"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
+  version " megatest-version "
   license GPL, Copyright Matt Welland 2011
 
 Usage: dashboard [options]
   -h              : this help
   -run runid      : control run identified by runid
   -test testid    : control test identified by testid
 
 Misc
   -rows N         : set number of rows
-")
+"))
 
 ;; process args
 (define remargs (args:get-args 
 		 (argv)
 		 (list  "-rows"