--- a/Filename.st	Wed Mar 25 10:33:43 2009 +0100
+++ b/Filename.st	Wed Mar 25 11:20:38 2009 +0100
@@ -4741,7 +4741,11 @@
             "/ cannot happen
             ^ nil
         ].
-        t := (self class named:t directoryName) construct:path.
+        path asFilename isAbsolute ifTrue:[
+            t := path asFilename
+        ] ifFalse:[
+            t := (self class named:t directoryName) construct:path.
+        ].
         info := t linkInfo.
         info isNil ifTrue:[
             "t does not exist"
@@ -5591,7 +5595,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.335 2009-02-13 09:23:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.336 2009-03-25 10:20:38 cg Exp $'
 ! !
 
 Filename initialize!