diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index d7f095629cc..e9cd5ca4fd3 100644
--- a/lisp/touch-screen.el
+++ b/lisp/touch-screen.el
@@ -952,7 +952,7 @@ text scale by the ratio therein."
               ;; and Emacs can hscroll left even when no lines are
               ;; truncated.
               (unless (and (< x-accumulator 0)
-                           (< ratio-diff -0.2))
+                           (< ratio-diff 0))
                 (if (> x-accumulator 0)
                     (scroll-right 1)
                   (scroll-left 1)))