diff -r 20bec8d70d14 -r 45cc74ba1113 MenuEditor.st
--- a/MenuEditor.st	Sat Feb 21 15:28:04 1998 +0100
+++ b/MenuEditor.st	Sat Feb 21 15:40:27 1998 +0100
@@ -1849,7 +1849,7 @@
 !
 
 doSave
-    |cls treeView menu spec mthd category code|
+    |cls treeView menu spec mthd category code BANG|
 
     super doSave ifFalse: [^nil].
 
@@ -1868,17 +1868,19 @@
         category := mthd category.
     ].
 
-    code := Character excla asString 
-            , cls name , ' class methodsFor:' , category storeString
-            , Character excla asString , '\\'
+    BANG := Character excla asString.
+
+    code := BANG
+            , (cls name , ' class methodsFor:' , category storeString)
+            , BANG , '\\'
 
             , specSelector , '\'
             , '    "this window spec was automatically generated by the ST/X MenuEditor"\\'
             , '    "do not manually edit this - the builder may not be able to\'
             , '     handle the specification if its corrupted."\\'
             , '    "\'
-            , '     MenuEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
-            , '     (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , specSelector , ')) startUp\'
+            , ('     MenuEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\')
+            , ('     (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , specSelector , ')) startUp\')
             , '    "\'.
 
     code := code 
@@ -1887,9 +1889,7 @@
             , '    ^\' 
             , '     ', spec
             , '\'
-            , Character excla asString
-            , ' '
-            , Character excla asString
+            , (BANG , ' ' , BANG)
             , '\\'.
 
     code := code withCRs.