Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -408,11 +408,11 @@
 	  (debug:print 0 "ERROR: non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
 	  (exit 1))))
 
 (if (args:get-arg "-version")
     (begin
-      (print megatest-version)
+      (print (common:version-signature)) ;; (print megatest-version)
       (exit)))
 
 (define *didsomething* #f)
 
 ;; Overall exit handling setup immediately