diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 3d42104e888..d5da3ab9f7e 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -96,7 +96,7 @@
        ((eq bar-part 'above-handle)
 	(scroll-down))
        ((eq bar-part 'handle)
-	(scroll-bar-drag-1 event))
+	(scroll-bar-maybe-set-window-start event))
        ((eq bar-part 'below-handle)
 	(scroll-up))
        ((eq bar-part 'down)