 
 (defun lusty-columnize (entries n-columns)
   "Split ENTRIES into N-COLUMNS sublists."
-  (let ((n-rows (ceiling (length entries) n-columns))
+  (let ((n-rows (ceiling (/ (float (length entries)) n-columns)))
         (sublists))
     (while entries
       (push (subseq entries 0 (min n-rows (length entries)))

    (add-hook 'post-command-hook 'lusty--post-command-function t)
    (unwind-protect
        (save-window-excursion
          (funcall read-fn ">> "))
      (remove-hook 'post-command-hook 'lusty--post-command-function)
      (setq lusty--previous-minibuffer-contents nil
            lusty--initial-window-config nil))))

(defvar lusty-file-face font-lock-string-face)

(defvar lusty-buffer-name " *Lusty-Matches*")
(defvar lusty-prompt ">> ")
(defvar lusty-column-separator "    ")
(defvar lusty-no-entries-string
  (propertize "-- NO ENTRIES --" 'face 'font-lock-warning-face))
