--- a/FtpURI.st	Thu Jul 10 11:42:47 2003 +0200
+++ b/FtpURI.st	Thu Jul 10 12:24:21 2003 +0200
@@ -175,7 +175,7 @@
         ].
 
         aSuffix size ~~ 0 ifTrue:[
-            list := list select:[:str| (str ensWith:aSuffix) not ]
+            list := list select:[:str| (str endsWith:aSuffix) not ]
         ].
 
         list do:[:aPathName| |baseName stream|
@@ -264,5 +264,5 @@
 !FtpURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.4 2003-07-10 09:42:47 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.5 2003-07-10 10:24:21 tm Exp $'
 ! !