Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -13,12 +13,12 @@
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 
 (use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
      srfi-18 extras format pkts regex regex-case
-     (prefix dbi dbi:)
-     (prefix nanomsg nmsg:))
+     (prefix dbi dbi:))
+     ;;(prefix nanomsg nmsg:))
 
 (declare (uses common))
 (declare (uses megatest-version))
 (declare (uses margs))
 (declare (uses configf))
@@ -533,17 +533,17 @@
 ;; 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)
+(define (area-allowed? area areas runkey contour mode-patt)
   (cond
    ((not areas) #t) ;; no spec
    ((string? areas) ;; 
-    (let ((check-fn (hash-table-ref/default *area-checkers* areas #f)))
+    (let ((check-fn (hash-table-ref/default *area-checkers* (string->symbol areas) #f)))
       (if check-fn
-	  (check-fn area runkey contour)
+	  (check-fn area runkey contour mode-patt)
 	  #f)))
    ((list? areas)(member area areas))
    (else #f))) ;; shouldn't get here 
 
 ;; (use trace)(trace create-run-pkt)
@@ -832,11 +832,11 @@
 		       (runkeydats (cadr runkeydatset)))
 		   (for-each
 		    (lambda (runkeydat)
 		      (for-each
 		       (lambda (area)
-			 (if (area-allowed? area areas runkey contour) ;; is this area to be handled (from areas=a,b,c OR using areafn=abcfn and *area-checks* ...)
+			 (if (area-allowed? area areas runkey contour mode-patt) ;; is this area to be handled (from areas=a,b,c OR using areafn=abcfn and *area-checks* ...)
                              (let* ((aval       (or (configf:lookup mtconf "areas" area) ""))
                                     (aval-alist (val->alist aval))
                                     (runname    (alist-ref 'runname runkeydat))
                                     (runtrans   (alist-ref 'runtrans runkeydat))