@@ -233,10 +233,13 @@
   (let ((sectdat (hash-table-ref/default cfgdat section '())))
     (if (null? sectdat)
 	'()
 	(map car sectdat))))
 
+(define (configf:get-section cfdat section)
+  (hash-table-ref/default cfgdat section '()))
+
 (define (setup)
   (let* ((configf (find-config))
 	 (config  (if configf (read-config configf #f #t) #f)))
     (if config
 	(setenv "RUN_AREA_HOME" (pathname-directory configf)))