@@ -2729,8 +2729,12 @@
   (conc megatest-version "-" megatest-fossil-hash))
 
 (define (common:version-signature)
   (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
 
+(define (common:get-fields cfgdat)
+  (let ((fields (hash-table-ref/default cfgdat "fields" '())))
+    (map car fields)))
 
+(define keys:config-get-fields common:get-fields)
 
 )