diff --git a/src/xschem.tcl b/src/xschem.tcl
index 739d6f29..a65697c8 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8877,13 +8877,16 @@ if {$text_replace_selection && $OS != "Windows"} {
 }
 
 ## allow to unpost menu entries when clicking a posted menu
-bind Menu <Button> {
-   if { [%W cget -type] eq "menubar" && [info exists tk::Priv(menuActivated)]} {
-     %W activate none
-   } else {
-     %W activate @%x,%y
-   }
-   tk::MenuButtonDown %W
+
+if { [info tclversion] >= 8.6 } {
+  bind Menu <Button> {
+     if { [%W cget -type] eq "menubar" && [info exists tk::Priv(menuActivated)]} {
+       %W activate none
+     } else {
+       %W activate @%x,%y
+     }
+     tk::MenuButtonDown %W
+  }
 }
 
 ## this proc must be called for any created entry widgets