#
#
# patch "lib/perl/WindowManager.pm"
#  from [75e477fa45e6350da4e3878ce91c6204279ad098]
#    to [97d95302208bf93695692e07640f4ff2c63ec153]
#
============================================================
--- lib/perl/WindowManager.pm	75e477fa45e6350da4e3878ce91c6204279ad098
+++ lib/perl/WindowManager.pm	97d95302208bf93695692e07640f4ff2c63ec153
@@ -408,7 +408,6 @@ sub make_busy($$$;$)
 
     my($head,
        @list);
-    my $entry = $this->find_record($instance);
 
     # When making things busy filter out keyboard and mouse button events
     # unless they relate to the grab widget (usually a `stop' button) and make
@@ -417,6 +416,7 @@ sub make_busy($$$;$)
 
     if ($busy)
     {
+	my $entry = $this->find_record($instance);
 	Gtk2::Gdk::Event->handler_set(\&busy_event_filter,
 				      {singleton   => $this,
 				       grab_widget => $entry->{grab_widget}})
@@ -437,7 +437,7 @@ sub make_busy($$$;$)
 	}
 	push(@{$this->{busy_state_stack}},
 	     {exclude     => $exclude,
-	      grab_widget => $instance->{grab_widget},
+	      grab_widget => $entry->{grab_widget},
 	      window_list => address@hidden);
     }
     else
@@ -482,7 +482,7 @@ sub make_busy($$$;$)
 		Gtk2::Gdk::Event->handler_set
 		    (\&busy_event_filter,
 		     {singleton   => $this,
-		      grab_widget => $entry->{grab_widget}});
+		      grab_widget => $head->{grab_widget}});
 	    }
 	}
     }