--- a/MenuView.st	Tue Feb 09 19:28:37 1999 +0100
+++ b/MenuView.st	Thu Feb 11 11:22:04 1999 +0100
@@ -1975,18 +1975,20 @@
 hideSubmenu
     "hide the currently shown subMenu (if any)"
 
-    |m|
+    |m id|
 
     (m := subMenuShown) notNil ifTrue:[
-	"/ race condition kludge ...
-	m realized ifFalse:[
-	    device unmapWindow:m id.
-	] ifTrue:[
-	    m hide.
-	].
-
-	subMenuShown := nil.
-	self setSelection:nil.
+        "/ race condition kludge ...
+        m realized ifFalse:[
+            (id := m id) notNil ifTrue:[
+                device unmapWindow:id.
+            ]
+        ] ifTrue:[
+            m hide.
+        ].
+
+        subMenuShown := nil.
+        self setSelection:nil.
     ].
 
     "Modified: 25.2.1997 / 23:38:50 / cg"
@@ -2716,5 +2718,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.116 1998-08-17 08:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.117 1999-02-11 10:22:04 cg Exp $'
 ! !