Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -400,19 +400,19 @@
 (define (common:version-changed?)
   (not (equal? (common:get-last-run-version)
                (common:version-signature))))
 
 
-;; From 1.70 to 1.80, db's are compatible.
+;; From 1.70 to 1.81, 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)))
+   (and (not (or (equal? megatest-major-version "1.80") (equal? megatest-major-version "1.81")))
+     (not (equal? megatest-major-version run-major-version)))
   )
 )
 
 ;;======================================================================
 ;; Move me elsewhere ...