--- a/MenuItem.st	Fri Apr 14 17:56:40 2000 +0200
+++ b/MenuItem.st	Thu Apr 27 12:57:45 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libview2' }"
+
 Object subclass:#MenuItem
 	instanceVariableNames:'activeHelpKey enabled label value nameKey adornment
 		translateLabel isButton startGroup isVisible hideMenuOnActivated'
@@ -621,10 +623,11 @@
             coll add:#indication: ; add:(something literalArrayEncoding)
         ].
         (something := self choice) notNil ifTrue:[
-            coll add:#choice: ; add:(something literalArrayEncoding)
-        ].
-        (something := self choiceValue) notNil ifTrue:[
-            coll add:#choiceValue: ; add:(something literalArrayEncoding)
+            coll add:#choice: ; add:(something literalArrayEncoding).
+
+            (something := self choiceValue) notNil ifTrue:[
+                coll add:#choiceValue: ; add:(something literalArrayEncoding)
+            ].
         ].
         (something := self auxValue) notNil ifTrue:[
             coll add:#auxValue: ; add:(something literalArrayEncoding)
@@ -989,5 +992,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.38 2000-02-25 17:53:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.39 2000-04-27 10:57:45 cg Exp $'
 ! !