Megatest

	   (list key targ))
	 keys targtweaked)))

;;======================================================================
;; config file related routines
;;======================================================================

(define (keys:config-get-fields confdat)
(define keys:config-get-fields common:get-fields)
  (let ((fields (hash-table-ref/default confdat "fields" '())))
    (map car fields)))