diff --git a/VERSION b/VERSION
index c56821cd..4fe55683 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.76
+8.3.77
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 89cd8401..6addd626 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -15,6 +15,7 @@ proc magic::suspendall {} {
    global Winopts
    if {[info commands winfo] != ""} {
       foreach window [magic::windownames layout] {
+	 if {$window == 0} {continue}
          set framename [winfo toplevel $window]
          if {$framename == "."} {
 	    set framename $window
@@ -30,6 +31,7 @@ proc magic::resumeall {} {
    global Winopts
    if {[info commands winfo] != ""} {
       foreach window [magic::windownames layout] {
+	 if {$window == 0} {continue}
          set framename [winfo toplevel $window]
          if {$framename == "."} {
 	    set framename $window