diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 22792b396a9776023fb22b063d401238ac972a63..02c0e3859eeec3129acbaab891e5dbadb53b83ac 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3083,7 +3083,7 @@ proc pdtk_canvas_new {name width height geometry editable} {
 	bind $name <FocusIn> "menu_fixeditmenu $name"
 	# bind $name <FocusOut> { pdtk_noselect %W }
 	if { $k12_mode == 1 } { pd [concat $name tooltips 1 \;] }
-    focus $name.c
+    after 100 [concat focus $name.c]
 
 	if { $k12_mode == 1 && $k12_saveas_on_new == 1 } {
 		after 1000 [concat pdtk_k12_saveas_on_new $name]