--- a/DirectoryContentsBrowser.st	Mon Jun 16 14:29:13 2003 +0200
+++ b/DirectoryContentsBrowser.st	Tue Jun 17 14:11:14 2003 +0200
@@ -2608,6 +2608,12 @@
     ^ self suffixes at:1
 !
 
+linkTargetIsDirectory
+    self isSymbolicLink ifFalse:[^ false].
+
+    ^ fileName info isDirectory
+!
+
 mimeType
     "return the value of the instance variable 'mimeType' (automatically generated)"
 
@@ -3005,5 +3011,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.121 2003-06-13 11:17:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.122 2003-06-17 12:11:14 cg Exp $'
 ! !