           (when (<= column-count 1)
             (setq columns (list propertized)
                   widths (list 0)))
-          (lusty--print-columns columns widths)))
-
-  (when truncated-p
-    (lusty--print-truncated)))
+          (let ((truncated-p (lusty--print-columns columns widths)))
+            (when truncated-p
+              (lusty--print-truncated))))))
+
 
 (defun lusty--print-no-entries ()
   (insert lusty-no-entries-string)

      ;; Trim down the entries
      (setf (cdr cut-off-point) nil))

    (values entries truncate-p)))

(defun* lusty--display-entries (entries truncated-p)

  (when (endp entries)
    (lusty--print-no-entries)

    (center-line)))

(defun lusty--print-columns (columns widths)
  (let ((max-printable-rows (- (frame-height) 3)) ;; TODO: determine smarter
        (max-rows (lusty-longest-length columns)))
    (dotimes (i (min max-printable-rows max-rows))
      (loop with row = ""
            for j to (1- (length columns))
            for entry = (nth i (nth j columns))
