diff --git a/tcl/main.tcl b/tcl/main.tcl
index bb0a57fd7..6c3f663fa 100644
--- a/tcl/main.tcl
+++ b/tcl/main.tcl
@@ -1020,7 +1020,7 @@ proc leaveSquare { square } {
 proc pressSquare { square } {
     global selectedSq highcolor
 
-    if { ![::fics::playerCanMove] } { return } ;# not player's turn
+    if {[info procs ::fics::playerCanMove] ne "" && ![::fics::playerCanMove]} { return } ;# not player's turn
 
     # if training with calculations of var is on, just log the event
     if { [winfo exists .calvarWin] } {
diff --git a/tcl/misc.tcl b/tcl/misc.tcl
index 574e218a1..99b558dc9 100644
--- a/tcl/misc.tcl
+++ b/tcl/misc.tcl
@@ -321,7 +321,8 @@ proc progressWindow { title text {button ""} {command "progressBarCancel"} } {
   set x [expr ([winfo screenwidth $w] - 400) / 2]
   set y [expr ([winfo screenheight $w] - 40) / 2]
   wm geometry $w +$x+$y
-  grab $w
+  update idletasks
+  catch { grab $w }
   wm withdraw $w
 
   progressBarSet $w.f.c 401 21