--- a/Menu.st	Tue Feb 25 20:43:00 1997 +0100
+++ b/Menu.st	Tue Feb 25 20:45:18 1997 +0100
@@ -35,7 +35,7 @@
 !
 
 menuItems:aCollectionOfMenuItems groupsSizes:sizes values:values
-    |idx newItems|
+    |idx newItems nItems|
 
     items := aCollectionOfMenuItems.
     values notNil ifTrue:[
@@ -49,18 +49,21 @@
     groupSizes := sizes.
     groupSizes notNil ifTrue:[
         idx := 1.
-        newItems := OrderedCollection new.
+        nItems := items size.
+        newItems := OrderedCollection new:(nItems + groupSizes size).
         groupSizes do:[:aGroupSize |
             items from:idx to:idx+aGroupSize-1 do:[:l | newItems add:l].
-            newItems add:(MenuItem new label:'-').
-            idx := idx + aGroupSize
+            idx := idx + aGroupSize.
+            idx < nItems ifTrue:[
+                newItems add:(MenuItem new label:'-').
+            ]
         ].
-        items from:idx to:items size do:[:l | newItems add:l].
+        items from:idx to:nItems do:[:l | newItems add:l].
         items := newItems.
     ].
 
     "Created: 25.2.1997 / 20:28:12 / cg"
-    "Modified: 25.2.1997 / 20:41:19 / cg"
+    "Modified: 25.2.1997 / 20:44:54 / cg"
 !
 
 valueAt:index
@@ -164,10 +167,10 @@
               ) 
               #(4 5 2 1 ) 
               #(#openFileList #openFileEditor #openRefactoringTool #toolsNewWorkspace #toolsNewCanvas #toolsPalette #toolsCanvasTool #toolsMaskEditor #toolsMenuEditor nil #openExternalFinder #toggleSystemTranscript ) 
-        ) decodeAsLiteralArray
+        ) decodeAsLiteralArray startUp
     "
 
-    "Modified: 25.2.1997 / 20:33:08 / cg"
+    "Modified: 25.2.1997 / 20:43:22 / cg"
 ! !
 
 !Menu methodsFor:'startup'!
@@ -217,5 +220,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.3 1997-02-25 19:42:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.4 1997-02-25 19:45:18 cg Exp $'
 ! !