@@ -465,11 +465,12 @@
 			(ref-dat   (configf:read-file dat-path #f #t))
 			(ref-assoc (map (lambda (key)
 					  (list key (hash-table-ref ref-dat key)))
 					(hash-table-keys ref-dat))))
 				   ;; (hash-table->alist ref-dat)))
-		   (set! data (append data (list (list sheet-name ref-assoc))))))
+		   ;; (set! data (append data (list (list sheet-name ref-assoc))))))
+		   (set! data (cons (list sheet-name ref-assoc) data))))
 	       sheets)
 	      (list data "NO ERRORS"))))))
 
 ;; map over all pairs in a three level hierarchial alist and apply a function to the keys/val
 ;;
@@ -489,11 +490,12 @@
 	       (let* ((valtmp (assoc varname sectiondat))
 		      (val    (if valtmp (cadr valtmp) "")))
 		 (proc sheetname sectionname varname val)))
 	     (map car sectiondat))))
 	(map car sheetdat))))
-   (map car data)))
+   (map car data))
+  data)
 
 ;;======================================================================
 ;;  C O N F I G   T O / F R O M   A L I S T
 ;;======================================================================