--- a/AbstractOperatingSystem.st	Thu Aug 13 17:10:07 1998 +0200
+++ b/AbstractOperatingSystem.st	Thu Aug 13 21:39:15 1998 +0200
@@ -1193,11 +1193,46 @@
     self subclassResponsibility
 !
 
-linkFile:oldPath to:newPath
+createHardLinkFrom:oldPath to:newPath
     "link the file 'oldPath' to 'newPath'. The link will be a hard link.
      Return true if successful, false if not."
 
-    self subclassResponsibility
+    "/
+    "/ assume that this OperatingSystem does not support links
+    "/
+    ^ UnsupportedOperationSignal raise
+
+    "Created: / 13.8.1998 / 21:37:12 / cg"
+    "Modified: / 13.8.1998 / 21:38:39 / cg"
+!
+
+createSymbolicLinkFrom:oldPath to:newPath
+    "make a link from the file 'oldPath' to the file 'newPath'.
+     The link will be a soft (symbolic) link.
+     Return true if successful, false if not."
+
+    "/
+    "/ assume that this OperatingSystem does not support symbolic links
+    "/
+    ^ UnsupportedOperationSignal raise
+
+    "Created: / 13.8.1998 / 21:38:24 / cg"
+    "Modified: / 13.8.1998 / 21:38:43 / cg"
+!
+
+linkFile:oldPath to:newPath
+    "link the file 'oldPath' to 'newPath'. The link will be a hard link.
+     Return true if successful, false if not.
+     This method has been renamed - it remains in existance for
+     backward compatibility."
+
+    ^ self createHardLinkFrom:oldPath to:newPath
+
+    "
+     OperatingSystem linkFile:'foo' to:'bar'
+    "
+
+    "Modified: / 13.8.1998 / 21:37:24 / cg"
 !
 
 recursiveCopyDirectory:sourcePathName to:destination
@@ -3260,6 +3295,6 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.3 1998-08-05 16:08:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.4 1998-08-13 19:39:15 cg Exp $'
 ! !
 AbstractOperatingSystem initialize!