--- a/MenuView.st	Wed May 20 12:28:24 2015 +0200
+++ b/MenuView.st	Wed May 20 12:28:39 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 SelectionInListView subclass:#MenuView
 	instanceVariableNames:'selectors args receiver enableFlags disabledFgColor
 		disabledEtchedFgColor onOffFlags subMenus subMenuShown superMenu
@@ -505,13 +509,11 @@
 
     i := self indexOf:indexOrName.
     i ~~ 0 ifTrue:[
-	actions isNil ifTrue:[
-	    actions := OrderedCollection new.
-	].
-	i > actions size ifTrue:[
-	    actions grow:i
-	].
-	actions at:i put:aBlock
+        actions isNil ifTrue:[
+            actions := OrderedCollection new.
+        ].
+        actions ensureSizeAtLeast:i.
+        actions at:i put:aBlock
     ]
 
     "Created: 24.3.1996 / 17:18:15 / cg"
@@ -3007,10 +3009,10 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.186 2014-12-02 16:27:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.187 2015-05-20 10:28:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.186 2014-12-02 16:27:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.187 2015-05-20 10:28:39 cg Exp $'
 ! !