@@ -99,10 +99,13 @@
 
 ;;======================================================================
 ;; Misc utils
 ;;======================================================================
 
+(define (common:version-signature)
+  (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
+
 ;; one-of args defined
 (define (args-defined? . param)
   (let ((res #f))
     (for-each 
      (lambda (arg)