diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index fdb2ea3bce7c2be28992d18e530c926c6b97ac55..4dc911efaaa534645cf6983c4191ea511e1caad5 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -4193,6 +4193,8 @@ proc pdtk_find_highest_widget_withtag {canvas name} {
 #}
 
 proc pdtk_canvas_getscroll {name} {
+	set parentname [winfo parent $name]
+	if {$::scroll($parentname) == 0} {return}
 	catch { after cancel $::doscroll($name) }
 	set ::doscroll($name) [after idle [concat pdtk_canvas_do_getscroll $name]]
 }