@@ -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)))