--- a/AbstractOperatingSystem.st	Wed May 16 13:23:29 2007 +0200
+++ b/AbstractOperatingSystem.st	Wed May 16 13:23:49 2007 +0200
@@ -5454,10 +5454,10 @@
     "return the name of the users desktop directory.
      The fallback here returns the users home directory."
 
-    ^ self getEnvironment:'HOME'
-
-    "
-     OperatingSystem getHomeDirectory  
+    ^ self getHomeDirectory
+
+    "
+     OperatingSystem getDesktopDirectory  
     "
 
     "Created: / 16-05-2007 / 13:20:53 / cg"
@@ -6533,7 +6533,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.170 2007-05-16 11:23:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.171 2007-05-16 11:23:49 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!