@@ -1040,7 +1040,83 @@
          )
        )
      )
    )
 )
+
+;;======================================================================
+;; from metadat lookup MEGATEST_VERSION
+;;
+(define (common:get-last-run-version) ;; RADT => How does this work in send-receive function??; assume it is the value saved in some DB
+  (rmt:get-var "MEGATEST_VERSION"))
+
+(define (common:get-last-run-version-number)
+  (string->number 
+   (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)))
+
+(define (common:version-changed?)
+  (not (equal? (common:get-last-run-version)
+               (common:version-signature))))
+
+
+;; From 1.70 to 1.80, db's are compatible.
+
+(define (common:api-changed?)
+  (let* (
+    (megatest-major-version (substring (->string megatest-version) 0 4))
+    (run-major-version (substring (conc (common:get-last-run-version)) 0 4))
+   )
+   (and (not (equal? megatest-major-version "1.80"))
+     (not (equal? megatest-major-version megatest-run-version)))
+  )
+)
+
+;;======================================================================
+;; Move me elsewhere ...
+;; RADT => Why do we meed the version check here, this is called only if version misma
+;;
+(define (common:cleanup-db dbstruct #!key (full #f))
+  (case (rmt:transport-mode)
+    ((http)
+     (apply db:multi-db-sync 
+	    dbstruct
+	    'schema
+	    'killservers
+	    'adj-target
+	    'new2old
+	    '(dejunk)
+	    ))
+    ((tcp nfs)
+     (apply db:multi-db-sync 
+	    dbstruct
+	    'schema
+	    'killservers
+	    'adj-target
+	    'new2old
+	    '(dejunk)
+	    )))
+  (if (common:api-changed?)
+      (common:set-last-run-version)))
+
+
+
 
 )