Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -17,10 +17,11 @@
 
 (import (prefix sqlite3 sqlite3:))
 (import (prefix base64 base64:))
 
 (declare (unit common))
+(declare (uses keys))
 
 (include "common_records.scm")
 
 ;; (require-library margs)
 ;; (include "margs.scm")
@@ -952,15 +953,17 @@
       rtestpatt)
      (else args-testpatt))))
      
 (define (common:get-linktree)
   (or (getenv "MT_LINKTREE")
-      (if *configdat*
-	  (configf:lookup *configdat* "setup" "linktree")
+      (or (and *configdat*
+	       (configf:lookup *configdat* "setup" "linktree"))
 	  (if *toppath*
 	      (conc *toppath* "/lt")
-	      #f))))
+	      (if (file-exists? "megatest.config") ;; we are in the toppath (new area, mtutils compatible)
+		  (conc (current-directory) "/lt")
+		  #f)))))
 
 (define (common:args-get-runname)
   (let ((res (or (args:get-arg "-runname")
 		 (args:get-arg ":runname")
 		 (getenv "MT_RUNNAME"))))

Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -15,10 +15,11 @@
 
 (use regex regex-case) ;;  directory-utils)
 (declare (unit configf))
 (declare (uses process))
 (declare (uses env))
+(declare (uses keys))
 
 (include "common_records.scm")
 
 ;; return list (path fullpath configname)
 (define (find-config configname #!key (toppath #f))

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -21,10 +21,11 @@
 (declare (uses runconfig))
 (declare (uses tests))
 (declare (uses server))
 (declare (uses mt))
 (declare (uses archive))
+(declare (uses keys))
 ;; (declare (uses filedb))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")