--- a/ListSpecEditor.st	Sat Feb 14 21:01:20 1998 +0100
+++ b/ListSpecEditor.st	Sat Feb 14 21:15:17 1998 +0100
@@ -176,7 +176,7 @@
 
 askForListModification
     "ask for list modification
-    "
+    "       
     modified
     ifTrue:
     [
@@ -337,15 +337,18 @@
 
 doSaveAs
 
-    (self resourceMessage:
-        (ResourceSelectionBrowser
-            request: 'Save On Resource Selector'
+    |resourceMessage|
+    self askForItemModification.
+    (resourceMessage := ResourceSelectionBrowser
+            request: 'Save As Resource Method'
             onSuperclass: #Object
             andClass: specClass
             andSelector: specSelector
-            withResourceTypes: (Array with: self class resourceType))) notNil
+            withResourceTypes: (Array with: self class resourceType)) notNil
     ifTrue:
     [   
+        modified := false.
+        self resourceMessage: resourceMessage.
         self doSave.
         self buildFrom: specClass andSelector: specSelector
     ]
@@ -354,5 +357,5 @@
 !ListSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ListSpecEditor.st,v 1.3 1998-02-14 20:01:20 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ListSpecEditor.st,v 1.4 1998-02-14 20:15:17 tz Exp $'
 ! !