diff --git a/src/sources/ixf/ixf.lisp b/src/sources/ixf/ixf.lisp
index 2602b2d..e481260 100644
--- a/src/sources/ixf/ixf.lisp
+++ b/src/sources/ixf/ixf.lisp
@@ -20,9 +20,10 @@
     (unless (and (slot-boundp source 'columns) (slot-value source 'columns))
       (setf (slot-value source 'columns)
             (list-all-columns (conn-handle conn)
-                              (typecase (target source)
-                                (cons   (cdr (target source)))
-                                (string (target source))))))
+                              (or (typecase (target source)
+                                    (cons   (cdr (target source)))
+                                    (string (target source)))
+                                  (source source)))))
 
     (let ((transforms (when (slot-boundp source 'transforms)
                         (slot-value source 'transforms))))