--- a/UserPreferences.st	Wed Oct 28 18:49:09 2015 +0100
+++ b/UserPreferences.st	Wed Oct 28 18:49:27 2015 +0100
@@ -843,23 +843,6 @@
 
 
 
-!UserPreferences methodsFor:'accessing-changes & history'!
-
-changeFileName
-    "were to keep changes"
-
-    ^self
-	at: #'changeFileName'
-	ifAbsent: nil
-!
-
-changeFileName:aFilename
-    "were to keep changes"
-
-    self
-	at: #'changeFileName'
-	put: aFilename.
-! !
 
 !UserPreferences methodsFor:'accessing-locale'!
 
@@ -4626,6 +4609,47 @@
     "Created: / 03-07-2006 / 16:50:20 / cg"
 ! !
 
+!UserPreferences methodsFor:'accessing-prefs-files and directories'!
+
+changeFileName
+    "were to keep changes"
+
+    ^ self 
+        at: #'changeFileName' 
+        ifAbsent: [nil] 
+!
+
+changeFileName:aFilename
+    "were to keep changes"
+
+    self
+	at: #'changeFileName'
+	put: aFilename.
+!
+
+usersModuleName
+    "this will be taken as the user's module in the workspace and as a default for new projects"
+    
+    ^ 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-prefs-localization'!
 
 language
@@ -5257,27 +5281,6 @@
     "
 
     "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'!