Index: megatest.config
==================================================================
--- megatest.config
+++ megatest.config
@@ -21,12 +21,13 @@
 # ext-tests path=ext-tests; targtrans=prefix-contour;
 ext-tests path=ext-tests
 
 [contours]
 #     mode-patt/tag-expr
-quick areas=ext-tests;   selector=/QUICKPATT
-# quick areas=fullrun,ext-tests;   selector=QUICKPATT/quick
+quick areas=ext-tests;    selector=/QUICKPATT
+quick2 areafn=check-area; selector=/QUICKPATT
+# quick areas=fullrun,ext-tests; selector=QUICKPATT/quick
 # full  areas=fullrun,ext-tests; selector=MAXPATT/
 # short areas=fullrun,ext-tests; selector=MAXPATT/
 # all   areas=fullrun,ext-tests
 # snazy selector=QUICKPATT/
 

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -527,10 +527,15 @@
 	(areas-procname (alist-ref 'areafn val-alist)))
     (if areas-procname ;; areas-procname take precedence
 	areas-procname
 	(string-split (or areas-string "") ","))))
 
+;; area   - the current area under consideration
+;; areas  - the list of allowed areas from the contour spec -OR-
+;;          if it is a string then it is the function to use to
+;;          lookup in *area-checkers*
+;;
 (define (area-allowed? area areas runkey contour)
   (cond
    ((not areas) #t) ;; no spec
    ((string? areas) ;; 
     (let ((check-fn (hash-table-ref/default *area-checkers* areas #f)))