--- a/Project.st	Fri Mar 05 18:51:21 2004 +0100
+++ b/Project.st	Fri Mar 05 18:51:35 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -290,7 +292,7 @@
     NextSequential := 1.
     SystemProject := self new name:'default'.
     "/ SystemProject package:(OperatingSystem getLoginName , ':NoProject') asSymbol.
-    SystemProject package:#'__NoProject__'.
+    SystemProject package:(self noProjectID).
     SystemProject defaultNameSpace:Smalltalk.
     SystemProject comment:'A default (dummy) project. 
 Is used as the current project in case no real project is ever activated.
@@ -401,6 +403,10 @@
     ^ self knownProjects select:[:p | p isLoaded]
 !
 
+noProjectID
+    ^ #'__NoProject__'.
+!
+
 projectNamed:aProjectName
     "retrieve the named project; return nil if not known"
 
@@ -3930,7 +3936,7 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.188 2003-10-08 15:36:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.189 2004-03-05 17:51:35 cg Exp $'
 ! !
 
 Project initialize!