--- a/AbstractOperatingSystem.st	Fri Aug 13 15:12:33 2004 +0200
+++ b/AbstractOperatingSystem.st	Fri Aug 13 21:26:17 2004 +0200
@@ -2417,11 +2417,14 @@
 isSymbolicLink:aPathName
     "return true, if the given file is a symbolic link"
 
-    ^ (self linkInfoOf:aPathName) notNil
-
-    "
-     OperatingSystem isSymbolicLink:'Make.proto'
-     OperatingSystem isSymbolicLink:'Makefile' 
+    |info|
+
+    info := self linkInfoOf:aPathName.
+    ^ info notNil and:[info isSymbolicLink]
+
+    "
+     OperatingSystem isSymbolicLink:'Makefile'
+     OperatingSystem isSymbolicLink:'/usr/tmp'
     "
 !
 
@@ -5508,7 +5511,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.130 2004-08-10 15:15:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.131 2004-08-13 19:26:17 stefan Exp $'
 ! !
 
 AbstractOperatingSystem initialize!