Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -241,11 +241,11 @@
   (not (equal? (common:get-last-run-version)
                (common:version-signature))))
 
 (define (common:api-changed?)
   (not (equal? (substring (->string megatest-version) 0 4)
-               (substring (common:get-last-run-version) 0 4))))
+               (substring (conc (common:get-last-run-version)) 0 4))))
   
 ;; Move me elsewhere ...
 ;; RADT => Why do we meed the version check here, this is called only if version misma
 ;;
 (define (common:cleanup-db dbstruct)