diff --git a/pivot-table.el b/pivot-table.el
index 3f7bdb2..0780d58 100644
--- a/pivot-table.el
+++ b/pivot-table.el
@@ -44,7 +44,7 @@ TODO: more documentation"
   "Extract the column names from a table"
   (let (result)
     (dolist (row source)
-      (when (and (listp row) (equal "!" (car row)))
+      (when (and (listp row) (equal (car row) "!"))
         (let ((n 2))
           (dolist (cell (cdr row))
             (unless (equal cell "")