--- a/PopUpMenu.st	Tue Apr 23 17:19:23 1996 +0200
+++ b/PopUpMenu.st	Tue Apr 23 18:59:15 1996 +0200
@@ -606,7 +606,7 @@
 
     menuView action:[:menuView :selected |
         |actionIndex value sel retVal 
-         args selectors checkFlags|
+         args selectors checkFlags check|
 
         retVal := 0.
 
@@ -646,8 +646,9 @@
         ].
 
         checkFlags notNil ifTrue:[
-            arg := checkFlags at:selected.
-            arg notNil ifTrue:[
+            check := checkFlags at:selected.
+            check notNil ifTrue:[
+                arg := check.
                 sel1 := sel0.
                 sel0 := nil.
             ]
@@ -681,7 +682,7 @@
     "
 
     "Created: 10.1.1996 / 20:11:42 / cg"
-    "Modified: 22.4.1996 / 11:13:05 / cg"
+    "Modified: 23.4.1996 / 18:58:26 / cg"
 !
 
 startUpWithHeading:aString
@@ -1140,5 +1141,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.46 1996-04-22 09:44:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.47 1996-04-23 16:59:15 cg Exp $'
 ! !