diff --git a/main.rkt b/main.rkt
index f3fc74c..b574e8d 100644
--- a/main.rkt
+++ b/main.rkt
@@ -18,14 +18,14 @@
         (let ((ext (call-with-values (lambda () (get-window-text-extent l font))
                                           (lambda (w h) w))))
           ;(printf "label: ~a, max-w: ~a, w: ~a\n" l w ext)
-          (if (or (< w 10) (<= ext w))
+          (if (or (< w 10) (<= ext w) (string=? l ""))
               l
               (let* ((factor (/ w ext))
                      (strl   (string-length l))
                      (n-strl (round (* strl factor)))
                      (drop   (- strl n-strl)))
                 (when (= drop 0)
-                  (set! drop (- drop 1)))
+                  (set! drop 1))
                 (if (eq? ellipsis 'right)
                     (let ((nl (str:string-drop l drop)))
                       ;(printf "new-try ~a\n" nl)