Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -73,11 +73,12 @@
 						(hash-table-set! res curr-section-name 
 								 (config:assoc-safe-add alist key val))
 								 ;; (append alist (list (list key val))))
 						(loop (read-line inp) curr-section-name)))
 	       (else (debug:print 0 "ERROR: problem parsing " path ",\n   \"" inl "\"")
-		     (loop (read-line inp) curr-section-name))))))))
+		     (loop (read-line inp) curr-section-name)))))
+	(close-input-port inp))))
   
 (define (find-and-read-config fname)
   (let* ((curr-dir   (current-directory))
          (configinfo (find-config fname))
 	 (toppath    (car configinfo))