FtpURI.st
changeset 3003 f34d35a32f56
parent 2872 88dbc60ee0b3
child 3452 366305432727
--- a/FtpURI.st	Mon Jun 03 20:40:19 2013 +0200
+++ b/FtpURI.st	Tue Jun 04 12:15:13 2013 +0200
@@ -221,7 +221,7 @@
 
         "skip all files with skipSuffix aka 'file.old'"
         skipSuffix size == 0 ifFalse:[
-            list := list select:[:baseName| (baseName endsWith:skipSuffix) not]
+            list := list reject:[:baseName| (baseName endsWith:skipSuffix) ]
         ].
 
         list do:[:eachBaseName| |stream|
@@ -406,6 +406,6 @@
 !FtpURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.18 2013-01-20 15:28:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.19 2013-06-04 10:15:13 cg Exp $'
 ! !