@@ -188,27 +188,31 @@
 ;; given a config hash and a section name, apply that section to all matching sections (using wildcard % or regex if /..../)
 ;; remove the section when done so that there is no downstream clobbering
 ;;
 (define (configf:apply-wildcards ht section-name)
   (if (hash-table-exists? ht section-name)
-      (let ((vars (hash-table-ref ht section-name))
-            (rx   (regexp (if (string-contains section-name "%")
-                              (string-substitute section-name "%" ".*")
-                              section-name))))
+      (let* ((vars  (hash-table-ref ht section-name))
+	     (rxstr (if (string-contains section-name "%")
+			(string-substitute (regexp "%") ".*" section-name)
+			(string-substitute (regexp "^/(.*)/$") "\\1" section-name)))
+	     (rx    (regexp rxstr)))
+	;; (print "\nsection-name: " section-name " rxstr: " rxstr)
         (for-each
          (lambda (section)
-           (if (and section-name
-                    section 
-                    (not (string=? section-name section))
-                    (string-match rx section))
-               (for-each
-                (lambda (bundle)
-                  (let ((key  (car bundle))
-                        (val  (cadr bundle))
-                        (meta (if (> (length bundle) 2)(caddr bundle) #f)))
-                    (hash-table-set! ht section (config:assoc-safe-add (hash-table-ref ht section) key val metadata: meta))))
-                vars)))
+	   (if section
+	       (let ((same-section (string=? section-name section))
+		     (rx-match     (string-match rx section)))
+		 ;; (print "section: " section " vars: " vars " same-section: " same-section " rx-match: " rx-match)
+		 (if (and (not same-section) rx-match)
+		     (for-each
+		      (lambda (bundle)
+			;; (print "bundle: " bundle)
+			(let ((key  (car bundle))
+			      (val  (cadr bundle))
+			      (meta (if (> (length bundle) 2)(caddr bundle) #f)))
+			  (hash-table-set! ht section (config:assoc-safe-add (hash-table-ref ht section) key val metadata: meta))))
+		      vars)))))
          (hash-table-keys ht))))
   ht)
 
 ;; read a config file, returns hash table of alists
 
@@ -218,11 +222,13 @@
 ;; in the environment on the fly
 ;; sections: #f => get all, else list of sections to gather
 ;; post-section-procs alist of section-pattern => proc, where: (proc section-name next-section-name ht curr-path)
 ;; apply-wildcards: #t/#f - apply vars from targets with % wildcards to all matching sections
 ;;
-(define (read-config path ht allow-system #!key (environ-patt #f)(curr-section #f)(sections #f)(settings (make-hash-table))(keep-filenames #f)(post-section-procs '())(apply-wildcards #t))
+(define (read-config path ht allow-system #!key (environ-patt #f)            (curr-section #f)
+		     (sections #f)              (settings (make-hash-table)) (keep-filenames #f)
+		     (post-section-procs '())   (apply-wildcards #t))
   (debug:print 9 *default-log-port* "START: " path)
   (if (and (not (port? path))
 	   (not (file-exists? path))) ;; for case where we are handed a port
       (begin 
 	(debug:print-info 1 *default-log-port* "read-config - file not found " path " current path: " (current-directory))
@@ -251,11 +257,16 @@
 	      (begin
                 ;; process last section for wildcards
                 (process-wildcards res curr-section-name)
 		(if (string? path) ;; we received a path, not a port, thus we are responsible for closing it.
 		    (close-input-port inp))
-		(hash-table-delete! res "") ;; we are using "" as a dumping ground and must remove it before returning the ht
+		(if (list? sections) ;; delete all sections except given when sections is provided
+		    (for-each
+		     (lambda (section)
+		       (if (not (member section sections))
+			   (hash-table-delete! res section))) ;; we are using "" as a dumping ground and must remove it before returning the ht
+		     (hash-table-keys res)))
 		(debug:print 9 *default-log-port* "END: " path)
 		res)
 	      (regex-case 
 	       inl 
 	       (configf:comment-rx _                  (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings) curr-section-name #f #f))
@@ -310,13 +321,14 @@
                                                         ;; after gathering the vars for a section and if apply-wildcards is true and if there is a wildcard in the section name process wildcards
                                                         ;; NOTE: we are processing the curr-section-name, NOT section-name.
                                                         (process-wildcards res curr-section-name)
 							(loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings)
 							      ;; if we have the sections list then force all settings into "" and delete it later?
-							      (if (or (not sections) 
-								      (member section-name sections))
-								  section-name "") ;; stick everything into ""
+							      ;; (if (or (not sections) 
+							      ;;	      (member section-name sections))
+							      ;;	  section-name "") ;; stick everything into "". NOPE: We need new strategy. Put stuff in correct sections and then delete all sections later.
+							      section-name
 							      #f #f)))
 	       (configf:key-sys-pr ( x key cmd      ) (if (calc-allow-system allow-system curr-section-name sections)
 							  (let ((alist    (hash-table-ref/default res curr-section-name '()))
 								(val-proc (lambda ()
 									    (let* ((start-time (current-seconds))