Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -7,10 +7,12 @@
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 ;; (include "common.scm")
 ;; (include "megatest-version.scm")
+
+(define (toplevel-command . a) #f)
 
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 readline apropos json http-client directory-utils rpc ;; (srfi 18) extras)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -260,12 +260,12 @@
     (set! all-test-names     (hash-table-keys all-tests-registry))
     (set! test-names         (tests:filter-test-names all-test-names test-patts))
 
     ;; I think seeding required-tests with all test-names makes sense but lack analysis to back that up.
     ;;
-    ;; (set! required-tests     (lset-intersection equal? (string-split test-patts ",") all-test-names))
-    (set! required-tests     (lset-intersection equal? test-names all-test-names))
+    (set! required-tests     (lset-intersection equal? (string-split test-patts ",") all-test-names))
+    ;; (set! required-tests     (lset-intersection equal? test-names all-test-names))
     
     ;; look up all tests matching the comma separated list of globs in
     ;; test-patts (using % as wildcard)
 
     ;; (set! test-names (delete-duplicates (tests:get-valid-tests *toppath* test-patts)))