diff --git a/main.rkt b/main.rkt
index b062035..f3fc74c 100644
--- a/main.rkt
+++ b/main.rkt
@@ -24,12 +24,14 @@
                      (strl   (string-length l))
                      (n-strl (round (* strl factor)))
                      (drop   (- strl n-strl)))
+                (when (= drop 0)
+                  (set! drop (- drop 1)))
                 (if (eq? ellipsis 'right)
                     (let ((nl (str:string-drop l drop)))
-                      (printf "new-try ~a\n" nl)
+                      ;(printf "new-try ~a\n" nl)
                       (ellipsize w (str:string-drop l drop)))
                     (let ((nl (str:string-drop-right l drop)))
-                      (printf "new-try ~a\n" nl)
+                      ;(printf "new-try ~a\n" nl)
                       (ellipsize w (str:string-drop-right l drop))))))))
       
       (define/override (set-label l . resize)