Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -229,11 +229,13 @@
 		     (sections #f)              (settings (make-hash-table)) (keep-filenames #f)
 		     (post-section-procs '())   (apply-wildcards #t))
   (debug:print 9 *default-log-port* "START: " path)
   (if *configdat*
       (common:save-pkt `((action . read-config)
-			 (f      . ,path)
+			 (f      . ,(cond ((string? path) path)
+					  ((port?   path) "port")
+					  (else (conc path))))
                          (T      . configf))
 		       *configdat* #t add-only: #t))
   (if (and (not (port? path))
 	   (not (file-exists? path))) ;; for case where we are handed a port
       (begin