--- a/AbstractFileBrowser.st	Tue Nov 19 17:42:29 2002 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 19 17:43:55 2002 +0100
@@ -3366,24 +3366,23 @@
 
     |sel question aswer|
 
-    sel := self currentSelectedFiles.
-
+    sel := self currentSelectedFiles copy.
     sel size > 0 ifTrue:[
-	sel size > 1 ifTrue:[
-	    question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
-	] ifFalse:[
-	    question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
-	].
-
-	aswer := Dialog 
-		confirm:question withCRs
-		yesLabel:(resources at:'Remove')
-		noLabel:(resources at:'Cancel').
-	aswer ifTrue:[
-	    self withCursor:(Cursor wait) do:[
-		self cvsRemoveAndRemoveFromCVS:sel
-	    ]
-	]
+        sel size > 1 ifTrue:[
+            question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
+        ] ifFalse:[
+            question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
+        ].
+
+        aswer := Dialog 
+                confirm:question withCRs
+                yesLabel:(resources at:'Remove')
+                noLabel:(resources at:'Cancel').
+        aswer ifTrue:[
+            self withCursor:(Cursor wait) do:[
+                self cvsRemoveAndRemoveFromCVS:sel
+            ]
+        ]
     ]
 !
 
@@ -5363,5 +5362,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.60 2002-11-19 14:43:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.61 2002-11-19 16:43:55 cg Exp $'
 ! !