Index: main/xbase.lisp
===================================================================
--- main/xbase.lisp	(revision main,2)
+++ main/xbase.lisp	(revision main,3)
@@ -152,5 +152,5 @@
 
 (defun sql-create (name descs)
-  (format nil "CREATE TABLE ~A(~{~A~@{,~A~}~});"
+  (format nil "CREATE TABLE ~A~%   (~{~A~@{,~%    ~A~}~})"
           name
           (mapcar 'sql-column descs)))
@@ -182,9 +182,10 @@
 
 (defun read-dbf (type)
-  (let* ((filename (gethash type *dbfs*))
-         (header (read-dbf-structure filename)))
-    (with-open-file (in filename :element-type '(unsigned-byte 8))
-      (file-position in (slot-value header 'header-length))
-      (read-records in type))))
+  (let ((dbf-desc (gethash type *dbfs*)))
+    (with-slots (filename) dbf-desc
+      (let ((header (read-dbf-structure filename)))
+        (with-open-file (in filename :element-type '(unsigned-byte 8))
+          (file-position in (slot-value header 'header-length))
+          (read-records in type))))))
 
 (define-dbf-struct unit-type "/home/dsowen/scott/local/bent-data/bentutyp.dbf")