diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 299402f4..68f7674d 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -2669,7 +2669,10 @@ proc EditReminder {rem args} {
     wm protocol .edit WM_DELETE_WINDOW { .edit.but1 flash; .edit.but1 invoke }
     set ModifyDialogResult 0
     CenterWindow .edit .
-    bind .edit <ButtonPress-1> [list raise .edit]
+    bind .edit <ButtonPress-1> {
+        catch { raise .mod }
+        raise .edit
+    }
     tkwait visibility .edit
     set oldFocus [focus]
     focus .edit.t