--- a/MenuEditor.st	Wed Dec 17 14:18:33 2008 +0100
+++ b/MenuEditor.st	Wed Dec 17 14:41:27 2008 +0100
@@ -4848,36 +4848,36 @@
     |expanded item menu|
 
     self criticalDo:[
-	self isRootItem ifTrue:[ expanded := true ]
-		       ifFalse:[ expanded := isExpanded ].
-
-	self removeAll.
-	self rawLabel:aString.
-
-	menu := aMenu value.
-
-	(menu isNil or:[menu isString]) ifTrue:[
-	    menu := nil
-	] ifFalse:[
-	    aMenu isCollection ifTrue:[ menu := Menu decodeFromLiteralArray:aMenu ]
-			      ifFalse:[ menu := aMenu ].
-
-	    menu numberOfItems == 0 ifTrue:[
-		menu := nil
-	    ].
-	].
-	menu ifNotNil:[
-	    isExpanded := false.        "/ discard change notifications
-	    children   := OrderedCollection new.
-
-	    menu itemsDo:[:el|
-		item := self class menuItem:el.
-		item parent:self.
-		children add:item.
-	    ].
-	    expanded ifTrue:[ self expand ].
-	].
-	isExpanded := expanded.
+        self isRootItem ifTrue:[ expanded := true ]
+                       ifFalse:[ expanded := isExpanded ].
+
+        self removeAll.
+        self rawLabel:aString.
+
+        menu := aMenu value.
+
+        (menu isNil or:[menu isString]) ifTrue:[
+            menu := nil
+        ] ifFalse:[
+            aMenu isCollection ifTrue:[ menu := Menu decodeFromLiteralArray:aMenu ]
+                              ifFalse:[ menu := aMenu ].
+
+            menu hasItems ifFalse:[
+                menu := nil
+            ].
+        ].
+        menu ifNotNil:[
+            isExpanded := false.        "/ discard change notifications
+            children   := OrderedCollection new.
+
+            menu itemsDo:[:el|
+                item := self class menuItem:el.
+                item parent:self.
+                children add:item.
+            ].
+            expanded ifTrue:[ self expand ].
+        ].
+        isExpanded := expanded.
     ].
     self changed