@@ -23,17 +23,20 @@
      call-with-environment-variables)
 (declare (unit subrun))
 ;;(declare (uses runs))
 (declare (uses db))
 (declare (uses common))
+(declare (uses commonmod))
 ;;(declare (uses items))
 ;;(declare (uses runconfig))
 ;;(declare (uses tests))
 ;;(declare (uses server))
 (declare (uses mt))
 ;;(declare (uses archive))
 ;; (declare (uses filedb))
+
+(import commonmod)
 
 ;(include "common_records.scm")
 ;;(include "key_records.scm")
 (include "db_records.scm") ;; provides db:test-get-id
 ;;(include "run_records.scm")
@@ -135,11 +138,11 @@
       (subrun:unset-subrun-removed test-run-dir))      
 
   (let* ((log-prefix "run")
          (switches (subrun:selector+log-switches test-run-dir log-prefix))
          (run-wait (equal? run-mode "yes"))
-         (cmd      (conc "megatest " sub-cmd " " switches" "
+         (cmd      (conc (common:get-mtexe)" "sub-cmd" "switches" "
                          (if run-wait "-run-wait " ""))))
     cmd))
 
 
 (define (subrun:sanitize-path inpath)
@@ -232,20 +235,24 @@
                (list (car x) (cdr x)))
              switch-alist))
            " ")))
     res))
 
+;; NOTE: Here we run sub megatest but this is not intended for one version
+;;       of megatest to test another version. Thus we propagate the 
 (define (subrun:exec-sub-megatest test-run-dir action-switches-str log-prefix)
-  (let* ((selector-switches  (subrun:selector+log-switches test-run-dir log-prefix))
-         (cmd (conc "megatest " selector-switches " " action-switches-str ))
+  (let* ((mtpathdir          (common:get-megatest-exe-dir))
+	 (mtexe              (common:get-mtexe))
+	 (selector-switches  (subrun:selector+log-switches test-run-dir log-prefix))
+         (cmd (conc mtexe" "selector-switches" "action-switches-str ))
          (pid #f)
          (proc (lambda ()
                  (debug:print-info 0 *default-log-port* "Running sub megatest command: "cmd)
                  ;;(set! pid (process-run "/usr/bin/xterm" (list ))))))
                  (set! pid (process-run "/bin/bash" (list "-c" cmd))))))
     (call-with-environment-variables 
-     (list (cons "PATH" (conc (get-environment-variable "PATH") ":.")))
+     (list (cons "PATH"  (common:get-megatest-exe-path)))
      (lambda  ()
        (common:without-vars proc "^MT_.*")))
     (let processloop ((i 0))
       (let-values (((pid-val exit-status exit-code)(process-wait pid #t)))
         (if (eq? pid-val 0)