--- a/UserPreferences.st	Wed Oct 28 09:24:31 2015 +0100
+++ b/UserPreferences.st	Wed Oct 28 16:42:45 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -467,6 +469,10 @@
     ^ (Filename usersPrivateSmalltalkDirectory) / 'settings.stx'
 
     "Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+defaultWorkspaceDirectory
+    ^ (Filename usersPrivateSmalltalkDirectory) / 'workspace'
 ! !
 
 !UserPreferences class methodsFor:'accessing defaultPrefs'!
@@ -5251,6 +5257,27 @@
     "
 
     "Created: / 22-01-2012 / 10:52:59 / cg"
+!
+
+usersModuleName
+    ^ self at:#usersModuleName ifAbsent:[OperatingSystem getLoginName ]
+!
+
+usersModuleName:aString
+    self at:#usersModuleName put:aString
+!
+
+workspaceDirectory
+    ^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory]
+!
+
+workspaceDirectory:aDirectoryOrNilForDefault
+    |d|
+    
+    (d := aDirectoryOrNilForDefault) notNil ifTrue:[
+        d := d asFilename
+    ].    
+    self at:#workspaceDirectory put:d
 ! !
 
 !UserPreferences methodsFor:'accessing-scm'!