diff --git a/src/sources/ixf/ixf-schema.lisp b/src/sources/ixf/ixf-schema.lisp
index f4de0dc..3162901 100644
--- a/src/sources/ixf/ixf-schema.lisp
+++ b/src/sources/ixf/ixf-schema.lisp
@@ -89,7 +89,10 @@
                           (format-default-value
                            (ixf:ixf-column-default col)))
                :transform (transform-function col)
-               :comment (ixf:ixf-column-desc col)))
+               :comment (let ((comment (ixf:ixf-column-desc col)))
+                          (unless (or (null comment)
+                                      (string= comment ""))
+                            comment))))
 
 (defun list-all-columns (ixf-stream table)
   "Return the list of columns for the given IXF-FILE-NAME."