@@ -1293,11 +1293,17 @@
 (if (args:get-arg "-import-megatest.db")
     (let* ((toppath  (launch:setup-for-run))
 	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
 	   (mtdb     (if toppath (db:open-megatest-db)))
 	   (run-ids  (if toppath (db:get-all-run-ids mtdb))))
+
+      ;; adjust test-ids to fit into proper range
+      ;;
+      (db:prep-megatest.db-for-migration mtdb)
+
       ;; sync runs, test_meta etc.
+      ;;
       (db:sync-tables (db:sync-main-list mtdb) mtdb (db:get-db dbstruct #f))
       (for-each 
        (lambda (run-id)
 	 (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id))
 	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))