Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -533,11 +533,11 @@
 ;; handle a clean-cache request as early as possible
 ;;
 (if (args:get-arg "-clean-cache")
     (let ((toppath  (launch:setup)))
       (set! *didsomething* #t) ;; suppress the help output.
-      (runs:clean-cache (getenv "MT_TARGET")(args:get-arg "-runname" toppath))))
+      (runs:clean-cache (getenv "MT_TARGET")(args:get-arg "-runname") toppath)))
 	  
 (if (args:get-arg "-env2file")
     (begin
       (save-environment-as-files (args:get-arg "-env2file"))
       (set! *didsomething* #t)))

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -41,11 +41,16 @@
 (define (tests:get-all)
   (let* ((test-search-path   (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 cadr (configf:get-section cfgdat "tests-paths"))))
+  (let ((paths (let ((section (if cfgdat
+				  (configf:get-section cfgdat "tests-paths")
+				  #f)))
+		 (if section
+		     (map cadr section)
+		     '()))))
     (filter (lambda (d)
 	      (if (directory-exists? d)
 		  d
 		  (begin
 		    (if (common:low-noise-print 60 "tests:get-tests-search-path" d)