--- a/DirectoryContentsBrowser.st	Tue May 03 17:48:08 2011 +0200
+++ b/DirectoryContentsBrowser.st	Tue May 03 17:48:14 2011 +0200
@@ -1112,7 +1112,7 @@
 !
 
 enterActionFor:anItem
-    | filename info targetItem|
+    | filename info targetItem targetFile|
 
     filename := anItem fileName.
 
@@ -1121,17 +1121,19 @@
         ^ self.
     ].
     targetItem := anItem.
+    targetFile := filename.
 
     [
-       (info := filename linkInfo) isNil ifTrue:[ ^ self ].
-        info isSymbolicLink
+       (info := targetFile linkInfo) notNil 
+       and:[ info isSymbolicLink ]
     ] whileTrue:[
         targetItem := nil.
-        filename := info path.
-        filename isNil ifTrue:[^ self].
-        filename := filename asFilename.
+        info path isNil ifTrue:[^ self].
+        targetFile := filename directory construct:info path.
     ].
 
+    filename := targetFile.
+
     (filename isDirectory) ifTrue:[
         self setCurrentFileName:filename.
         ^ self.
@@ -3327,9 +3329,9 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.237 2011-05-03 10:18:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.238 2011-05-03 15:48:14 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.237 2011-05-03 10:18:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.238 2011-05-03 15:48:14 mb Exp $'
 ! !