Index: txtdb/txtdb.scm
==================================================================
--- txtdb/txtdb.scm
+++ txtdb/txtdb.scm
@@ -113,21 +113,23 @@
     (let ((ref-colnums (map (lambda (c)
 			      (list (cdr c)(car c)))
 			    (hash-table->alist colnums))))
       (with-output-to-file (conc targdir "/" sheet-name ".dat")
 	(lambda ()
-	  (print "[" col0title "]")
+	  (if (not (string-null? col0title))(print "[" col0title "]"))
 	  (for-each (lambda (colname)
 		      (print "[" colname "]")
 		      (for-each (lambda (row)
 				  (let ((key (car row))
 					(val (cadr row)))
 				    (if (string-search comment-rx key)
 					(print val)
 					(if (string-search blank-rx key)
 					    (print)
-					    (print key " " val)))))
+					    (if (string-search " " key)
+						(print "\"" key "\" " val)
+						(print key " " val))))))
 				(reverse (hash-table-ref cols colname)))
 		      ;; (print)
 		      )
 		    (sort (hash-table-keys cols)(lambda (a b)
 						  (let ((colnum-a (assoc a ref-colnums))
@@ -217,10 +219,11 @@
   (hash-table-fold ht (lambda (k v res)(if (equal? v val) k res)) #f))
 
 (define (read-dat fname)
   (let ((section-rx  (regexp "^\\[(.*)\\]\\s*$"))
 	(comment-rx  (regexp "^#.*"))          ;; This means a cell name cannot start with #
+	(quoted-cell-rx (regexp "^\"([^\"]*)\" (.*)$"))
 	(cell-rx     (regexp "^(\\S+) (.*)$")) ;; One space only for the cellname content separator 
 	(blank-rx    (regexp "^\\s*$"))
 	(continue-rx (regexp ".*\\\\$"))
 	(var-no-val-rx (regexp "^(\\S+)\\s*$"))
 	(inp         (open-input-file fname))
@@ -252,10 +255,13 @@
 				    (if (not first-section)
 					(set! first-section sname))
 				    (loop (read-line inp) 
 					  sname 
 					  res)))
+	   (quoted-cell-rx (x k v)(loop (read-line inp)
+					section
+					(cons (list k section v) res)))
 	   (cell-rx   (x k v)     (loop (read-line inp)
 					section
 					(cons (list k section v) res)))
 	   (var-no-val-rx (x k)   (loop (read-line inp)
 					section