--- a/Project.st	Tue Jul 31 17:05:59 2001 +0200
+++ b/Project.st	Tue Jul 31 17:10:05 2001 +0200
@@ -3517,6 +3517,10 @@
     "Modified: 7.6.1996 / 09:16:25 / stefan"
 !
 
+isDefaultProject
+    ^ self == Project defaultProject
+!
+
 isLoaded
     "return true, if all of this project-package has been loaded
      into the system"
@@ -3886,6 +3890,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.168 2001-02-28 13:18:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.169 2001-07-31 15:10:05 cg Exp $'
 ! !
 Project initialize!