Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -326,18 +326,18 @@
                                      (loop (configf:read-line inp res (calc-allow-system allow-system curr-section-name sections) settings)
                                            curr-section-name #f #f)))
                
 	       (configf:include-rx ( x include-file )
                                    (let* ((curr-conf-dir (pathname-directory path))
-                                          (full-conf     (if (absolute-pathname? include-file)
+                                          (full-conf     (if (and (absolute-pathname? include-file) (file-exists? include-file))
                                                              include-file
                                                              (common:nice-path 
                                                               (conc (if curr-conf-dir
                                                                         curr-conf-dir
                                                                         ".")
                                                                     "/" include-file)))))
-				     (let ((all-matches (sort (glob full-conf) string<=?)))
+				     (let ((all-matches (sort (handle-exceptions exn (list) (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