--- a/ListSpecEditor.st	Sun Feb 15 20:58:27 1998 +0100
+++ b/ListSpecEditor.st	Tue Feb 17 16:27:20 1998 +0100
@@ -382,9 +382,10 @@
     self askForItemModification.
 
     (specClass isNil or:[specSelector isNil]) ifTrue:[
-        ^self doSaveAs.
+        self doSaveAs.
+        ^false
     ].
-    ^false
+    ^true
 !
 
 doSaveAs
@@ -407,12 +408,12 @@
             self buildFromClass: specClass andSelector: specSelector.
             ^true
         ]
-    ].    
+    ].
     ^false
 ! !
 
 !ListSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ListSpecEditor.st,v 1.6 1998-02-15 19:58:27 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ListSpecEditor.st,v 1.7 1998-02-17 15:27:20 tz Exp $'
 ! !