Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -333,24 +333,25 @@
                                                              (common:nice-path 
                                                               (conc (if curr-conf-dir
                                                                         curr-conf-dir
                                                                         ".")
                                                                     "/" include-file)))))
-                                     (if (common:file-exists? full-conf)
-                                         (begin
-                                           ;; (push-directory conf-dir)
-                                           (debug:print 9 *default-log-port* "Including: " full-conf)
-                                           (read-config full-conf res allow-system environ-patt: environ-patt
-                                                        curr-section: curr-section-name sections: sections settings: settings
-                                                        keep-filenames: keep-filenames)
-                                           ;; (pop-directory)
-                                           (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings) curr-section-name #f #f))
-                                         (begin
-                                           (debug:print '(2 9) #f "INFO: include file " include-file " not found (called from " path ")")
-                                           (debug:print 2 *default-log-port* "        " full-conf)
-							      (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings)
-                                                                    curr-section-name #f #f)))))
+				     (let ((all-matches (sort (glob full-conf) string<=?)))
+				       (if (null? all-matches)
+					   (begin
+					     (debug:print '(2 9) #f "INFO: include file(s) matching " include-file " not found (called from " path ")")
+					     (debug:print 2 *default-log-port* "        " full-conf))
+					   (for-each
+					    (lambda (fpath)
+					      ;; (push-directory conf-dir)
+					      (debug:print 9 *default-log-port* "Including: " full-conf)
+					      (read-config fpath res allow-system environ-patt: environ-patt
+							   curr-section: curr-section-name sections: sections settings: settings
+							   keep-filenames: keep-filenames))
+					    all-matches))
+				       (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings)
+					     curr-section-name #f #f))))
 	       (configf:script-rx ( x include-script params);; handle-exceptions
                                   ;;    exn
                                   ;;    (begin
                                   ;;      (debug:print '(0 2 9) #f "INFO: include from script " include-script " failed.")
                                   ;;      (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings) curr-section-name #f #f))