diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 8ec8f7fece1204326a1c5b7caccfd63727b3b6ed..83272d2a74c44c2bd9ea84648a9b719da6f7d14f 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -7051,7 +7051,7 @@ proc pdtk_data_dialog {name stuff} {
 #####################iemlib#######################
 proc pdtk_canvas_editval {name value} {
 	global k12_mode
-	set set ::editmode($name) $value
+	set ::editmode($name) $value
 	#if {[winfo exists $name]} {
 		if { $value } {
 		    $name.m.edit entryconfigure "Edit mode" -indicatoron false -background "#7dd37d" -foreground black