Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -33,11 +33,11 @@
   (let* ((test-search-path   (cons (conc *toppath* "/tests") ;; the default
 				   (tests:get-tests-search-path *configdat*))))
     (tests:get-valid-tests (make-hash-table) test-search-path)))
 
 (define (tests:get-tests-search-path cfgdat)
-  (let ((paths (map car (configf:get-section cfgdat "tests-paths"))))
+  (let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
     (cons (conc *toppath* "/tests") paths)))
 
 (define (tests:get-valid-tests test-registry tests-paths)
   (if (null? tests-paths) 
       test-registry

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -8,12 +8,16 @@
 [refareas]
 area1 /tmp/oldarea/megatest
 
 [include config/mt_include_1.config]
 
+[misc]
+home #{shell readlink -f $MT_RUN_AREA_HOME}
+parent #{shell readlink -f $MT_RUN_AREA_HOME/..}
+
 [tests-paths]
-#{scheme (conc *toppath* "/../simplerun")}/tests
+1 #{get misc parent}/simplerun/tests
 
 [setup]
 # Set launchwait to yes to use the old launch run code that waits for the launch process to return before 
 # proceeding.
 # launchwait yes
@@ -20,10 +24,11 @@
 
 # If set to "default" the old code is used. Otherwise defaults to 200 or uses
 # numeric value given.
 #
 runqueue 20
+
 
 # It is possible (but not recommended) to override the rsync command used
 # to populate the test directories. For test development the following 
 # example can be useful
 #