Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -136,11 +136,12 @@
                           test-run-dir
                           "foo"))
              (run-area   (if (list? info-alist)
                              (alist-ref "-start-dir" info-alist equal? #f)
                              #f)))
-        run-area)))
+        run-area)
+      #f))
 
 (define (subrun:selector+log-alist test-run-dir log-prefix)
   (let* ((switch-def-alist (common:get-param-mapping flavor: 'config))
          (subrunfile   (conc test-run-dir "/testconfig.subrun" ))
          (subrundata   (with-input-from-file subrunfile read))