diff --git a/typeset.lisp b/typeset.lisp
index d1de8a0..7e77462 100644
--- a/typeset.lisp
+++ b/typeset.lisp
@@ -417,11 +417,10 @@ between each row."
                                    expr :lookup-table expr-lookup-table
                                    :latin-truths latin-truths))
                                 (extract-truth-table-expressions table)))
-         (col-widths (mapcar (lambda (expr)
-                               (+ (length expr) 2))
-                             typeset-exprs)))
+         (col-widths (mapcar 'length typeset-exprs)))
     (with-output-to-string (str)
-      (with-draw-table (str col-widths box-lookup-table)
+      (with-draw-table (str col-widths box-lookup-table
+                        :padding 1)
         (:row typeset-exprs)
         (:seperator)
         (dolist (row (extract-truth-table-values table))