--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Oct 28 09:23:48 2015 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Oct 28 18:49:52 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by eXept Software AG
               All Rights Reserved
@@ -3530,7 +3532,8 @@
                                                                 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
                                                             ].
     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
-    loadedProjectIDsWithoutProjectDefinition addFirst:(OperatingSystem getLoginName,':','demos','/','demo1').
+    loadedProjectIDsWithoutProjectDefinition 
+        addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').
     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
 
     "Modified: / 20-08-2012 / 19:31:35 / cg"