Index: configf.scm ================================================================== --- configf.scm +++ configf.scm @@ -152,11 +152,14 @@ (configf:blank-l-rx _ (loop (configf:read-line inp res allow-system) 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) include-file (nice-path - (conc curr-conf-dir "/" include-file))))) + (conc (if curr-conf-dir + curr-conf-dir + ".") + "/" include-file))))) (if (file-exists? full-conf) (begin ;; (push-directory conf-dir) (read-config full-conf res allow-system environ-patt: environ-patt curr-section: curr-section-name sections: sections) ;; (pop-directory) Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -212,10 +212,11 @@ "-test-status" "-set-values" "-load-test-data" "-summarize-items" "-gui" + "-daemonize" ;; misc "-archive" "-repl" "-lock" "-unlock"