@@ -35,11 +35,11 @@
 
 (define (config:assoc-safe-add alist key val)
   (let ((newalist (filter (lambda (x)(not (equal? key (car x)))) alist)))
     (append newalist (list (list key val)))))
 
-;; read a config file, returns two level hierarchial hash-table,
+;; read a config file, returns hash table of alists
 ;; adds to ht if given (must be #f otherwise)
 (define (read-config path ht allow-system)
   (if (not (file-exists? path))
       (if (not ht)(make-hash-table) ht)
       (let ((inp        (open-input-file path))