Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -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
 ;;======================================================================
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -149,11 +149,11 @@
   -ping run-id|host:port  : ping server, exit with 0 if found
 
 Utilities
   -env2file fname         : write the environment to fname.csh and fname.sh
   -refdb2dat refdb        : convert refdb to sexp or to format specified by -dumpmode
-                            formats: perl, ruby, sqlite3
+                            formats: perl, ruby, sqlite3, csv
   -o                      : output file for refdb2dat (defaults to stdout)
   -archive targdir        : archive runs specified by selectors to targdir using bup
 
 Spreadsheet generation
   -extract-ods fname.ods  : extract an open document spreadsheet from the database
@@ -458,11 +458,11 @@
 	  (sparse-vector-set! a x new-row)
 	  (sparse-vector-set! new-row y val)))))
 
 ;; csv processing record
 (define (make-refdb:csv)
-  (make-vector 
+  (vector 
    (make-sparse-array)
    (make-hash-table)
    (make-hash-table)
    0
    0))
@@ -493,11 +493,11 @@
 			 (current-output-port)))
 	   (res-data (configf:read-refdb input-db))
 	   (data     (car res-data))
 	   (msg      (cadr res-data)))
       (if (not data)
-	  (debug:print 0 data) ;; some error occurred
+	  (debug:print 0 "Bad input? data=" data) ;; some error occurred
 	  (with-output-to-port out-port
 	    (lambda ()
 	      (case (string->symbol out-fmt)
 		((scheme)(pp data))
 		((perl)
@@ -523,25 +523,78 @@
 		  (lambda (sheetname sectionname)
 		    (print "data[\"" sheetname "\"][\"" sectionname "\"] = {}"))))
 		((csv)
 		 (let* ((results  (make-hash-table)) ;; (make-sparse-array)))
 			(row-cols (make-hash-table))) ;; hash of hashes where section => ht { row-<name> => num or col-<name> => num
+		   ;; (print "data=")
+		   ;; (pp data)
 		   (configf:map-all-hier-alist
 		    data
 		    (lambda (sheetname sectionname varname val)
-		      (let* ((dat (get-dat results sheetname))
-			     (vec (refdb:
-			     
-			(sparse-array-set! vec 
-						       
-		    initproc1:
+		      ;; (print "sheetname: " sheetname ", sectionname: " sectionname ", varname: " varname ", val: " val)
+		      (let* ((dat      (get-dat results sheetname))
+			     (vec      (refdb:csv-get-svec dat))
+			     (rownames (refdb:csv-get-rows dat))
+			     (colnames (refdb:csv-get-cols dat))
+			     (currrown (hash-table-ref/default rownames varname #f))
+			     (currcoln (hash-table-ref/default colnames sectionname #f))
+			     (rown     (or currrown 
+					   (let* ((lastn   (refdb:csv-get-maxrow dat))
+						  (newrown (+ lastn 1)))
+					     (refdb:csv-set-maxrow! dat newrown)
+					     newrown)))
+			     (coln     (or currcoln 
+					   (let* ((lastn   (refdb:csv-get-maxcol dat))
+						  (newcoln (+ lastn 1)))
+					     (refdb:csv-set-maxcol! dat newcoln)
+					     newcoln))))
+			(if (not (sparse-array-ref vec 0 coln)) ;; (eq? rown 0)
+			    (begin
+			      (sparse-array-set! vec 0 coln sectionname)
+			      ;; (print "sparse-array-ref " 0 "," coln "=" (sparse-array-ref vec 0 coln))
+			      ))
+			(if (not (sparse-array-ref vec rown 0)) ;; (eq? coln 0)
+			    (begin
+			      (sparse-array-set! vec rown 0 varname)
+			      ;; (print "sparse-array-ref " rown "," 0 "=" (sparse-array-ref vec rown 0))
+			      ))
+			(if (not currrown)(hash-table-set! rownames varname rown))
+			(if (not currcoln)(hash-table-set! colnames sectionname coln))
+			;; (print "dat=" dat ", rown=" rown ", coln=" coln)
+			(sparse-array-set! vec rown coln val)
+			;; (print "sparse-array-ref " rown "," coln "=" (sparse-array-ref vec rown coln))
+			)))
+		   (for-each
 		    (lambda (sheetname)
-		      (print "data[\"" sheetname "\"] = {}"))
-		    initproc2:
-		    (lambda (sheetname sectionname)
-		      (print "data[\"" sheetname "\"][\"" sectionname "\"] = {}")))
-		   ))
+		      (let* ((sheetdat (get-dat results sheetname))
+			     (svec     (refdb:csv-get-svec sheetdat))
+			     (maxrow   (refdb:csv-get-maxrow sheetdat))
+			     (maxcol   (refdb:csv-get-maxcol sheetdat))
+			     (fname    (if out-file 
+					   (string-substitute "%s" sheetname out-file) ;; "/foo/bar/%s.csv")
+					   (conc sheetname ".csv"))))
+			(with-output-to-file fname
+			  (lambda ()
+			    ;; (print "Sheetname: " sheetname)
+			    (let loop ((row       0)
+				       (col       0)
+				       (curr-row '())
+				       (result   '()))
+			      (let* ((val (sparse-array-ref svec row col))
+				     (disp-val (if val
+						   (conc "\"" val "\"")
+						   "")))
+				(if (> col 0)(display ","))
+				(display disp-val)
+				(cond
+				 ((> row maxrow)(display "\n") result)
+				 ((>= col maxcol)
+				  (display "\n")
+				  (loop (+ row 1) 0 '() (append result (list curr-row))))
+				 (else
+				  (loop row (+ col 1) (append curr-row (list val)) result)))))))))
+		    (hash-table-keys results))))
 		((sqlite3)
 		 (let* ((db-file   (or out-file (pathname-file input-db)))
 			(db-exists (file-exists? db-file))
 			(db        (sqlite3:open-database db-file)))
 		   (if (not db-exists)(sqlite3:execute db "CREATE TABLE data (sheet,section,var,val);"))

Index: txtdb/nada3/RunsToLock.dat
==================================================================
--- txtdb/nada3/RunsToLock.dat
+++ txtdb/nada3/RunsToLock.dat
@@ -1,6 +1,7 @@
 [def]
+def def
 ghi jkl
 qrst 
 uvwx 
 yz12 
 

Index: utils/Makefile.installall
==================================================================
--- utils/Makefile.installall
+++ utils/Makefile.installall
@@ -43,11 +43,11 @@
 # Eggs to install (straightforward ones)
 EGGS=matchable readline apropos base64 regex-literals format regex-case test coops trace csv \
      dot-locking posix-utils posix-extras directory-utils hostinfo tcp-server rpc csv-xml fmt \
      json md5 awful http-client spiffy uri-common intarweb spiffy-request-vars \
      spiffy-directory-listing ssax sxml-serializer sxml-modifications sql-de-lite \
-     srfi-19 refdb ini-file
+     srfi-19 refdb ini-file sparse-vectors
 
 #
 # Derived variables
 #