--- a/MenuEditor.st	Wed Jun 05 15:23:58 2013 +0200
+++ b/MenuEditor.st	Wed Jun 05 15:24:03 2013 +0200
@@ -1596,19 +1596,19 @@
 !MenuEditor methodsFor:'accessing'!
 
 helpSpec
-    |spec sel t g|
+    |spec t g|
 
     spec := super helpSpec.
     t := spec at:#detailsStartGroup.
     g := (aspects at:#startGroup ifAbsent:nil) value.
     g == #conditionalRight ifTrue:[
-	t := t , ' #conditionalRight means: "right on non-win32 systems"'
+        t := t , ' #conditionalRight means: "right on non-win32 systems"'
     ].
     g == #right ifTrue:[
-	t := t , ' #right means: "right align from here"'
+        t := t , ' #right means: "right align from here"'
     ].
     g == #left ifTrue:[
-	t := t , ' #left means: "left align group"'
+        t := t , ' #left means: "left align group"'
     ].
     spec at:#detailsStartGroup put:t.
 
@@ -2768,16 +2768,16 @@
 
 doSave
     "save current editing menu to
-	   class: specClass
-	selector: specSelector
-    "
-    |cls specCode mthd category code excla s|
+           class: specClass
+        selector: specSelector
+    "
+    |cls specCode mthd category s|
 
     self isEditingSpecOnly ifTrue:[
-	savedSpec := self generateMenuSpec.
-	hasSaved := true.
-	self clearModified.
-	^ self
+        savedSpec := self generateMenuSpec.
+        hasSaved := true.
+        self clearModified.
+        ^ self
     ].
 
     super doSave ifFalse: [^nil].
@@ -2790,7 +2790,7 @@
 
     category := 'menu specs'.
     (mthd := cls class compiledMethodAt:specSelector) notNil ifTrue:[
-	category := mthd category.
+        category := mthd category.
     ].
 
     s := '' writeStream.
@@ -2821,7 +2821,7 @@
     (ReadStream on:s contents) fileIn.
 
     self isStandAlone ifTrue:[
-	self helpTool doSave
+        self helpTool doSave
     ].
 
     self updateHistory.