diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 7f15f13d54216149896d351e1a5153be4cbee20d..2fb430bf3ed7f0ab9565ab94849b51496750506f 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -9469,3 +9469,6 @@ proc pdtk_bind_scalar_mouseover {canvas scalar sendsym} {
     $canvas bind $scalar <Leave> \
         "scalar_mouseover $scalar [canvastosym $canvas] $sendsym 1"
 }
+
+proc AT {p} {}
+