1 files changed, 6 insertions, 3 deletions
diff --git a/dump.scm b/dump.scm
index 835a199..2bd9cdf 100755
--- a/dump.scm
+++ b/dump.scm
@@ -94,9 +94,12 @@
                        (symbol->string schema))
                       ((string? schema) schema)
                       (else
-                       (error "Use a string/symbol")))])
-    (string->symbol
-     (format #f "~s~a" field schema))))
+                       (error "Use a string/symbol")))]
+        [string-field (if (number? field) (number->string field) field)])
+    (if (string-null? string-field)
+        ""
+        (string->symbol
+         (format #f "~s~a" string-field schema)))))
 
 (define (string-split-substring str substr)
   "Split the string @var{str} into a list of substrings delimited by the