@@ -1055,20 +1055,10 @@
    (substring (common:get-last-run-version) 0 6)))
 
 (define (common:set-last-run-version)
   (rmt:set-var "MEGATEST_VERSION" (common:version-signature)))
 
-;;======================================================================
-;; V E R S I O N
-;;======================================================================
-
-(define (common:get-full-version)
-  (conc megatest-version "-" megatest-fossil-hash))
-
-(define (common:version-signature)
-  (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
-
 ;;======================================================================
 ;; postive number if megatest version > db version
 ;; negative number if megatest version < db version
 (define (common:version-db-delta)
   (- megatest-version (common:get-last-run-version-number)))