--- a/FileBrowser.st	Wed May 23 18:47:41 2001 +0200
+++ b/FileBrowser.st	Thu May 24 16:50:39 2001 +0200
@@ -4182,7 +4182,7 @@
 !
 
 entryCompletion:contents
-    |newString words lastWord expandedWord idx onlyOne addSpace|
+    |newString words lastWord expandedWord idx onlyOne addSpace fn|
 
     "/ find the last word.
     "/ used to be 'contents asCollectionOfWords last',
@@ -4223,7 +4223,8 @@
 
     addSpace := false.
     onlyOne ifTrue:[
-        (currentDirectory construct:expandedWord) exists ifTrue:[
+        fn := currentDirectory construct:expandedWord.
+        (fn exists and:[fn isDirectory not]) ifTrue:[
             addSpace := true.
         ].
     ].
@@ -7252,5 +7253,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.405 2001-05-23 12:54:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.406 2001-05-24 14:50:39 cg Exp $'
 ! !