--- a/Project.st	Wed Feb 07 15:10:54 1996 +0100
+++ b/Project.st	Wed Feb 07 15:11:43 1996 +0100
@@ -11,11 +11,11 @@
 "
 
 Object subclass:#Project
-	 instanceVariableNames:'name changeSet views directoryName properties packageName
-                repositoryDirectory repositoryModule'
-	 classVariableNames:'CurrentProject SystemProject NextSequential'
-	 poolDictionaries:''
-	 category:'System-Support'
+	instanceVariableNames:'name changeSet views directoryName properties packageName
+		repositoryDirectory repositoryModule'
+	classVariableNames:'CurrentProject SystemProject NextSequential'
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 !Project class methodsFor:'documentation'!
@@ -138,6 +138,15 @@
     "set the currently active project to be the SystemDEfault project"
 
     self current:SystemProject.
+!
+
+setProject:aProjectOrNil
+    "set the currently active project without updating others"
+
+    CurrentProject := aProjectOrNil.
+
+    "Created: 7.2.1996 / 14:00:45 / cg"
+    "Modified: 7.2.1996 / 14:01:16 / cg"
 ! !
 
 !Project class methodsFor:'changes management'!
@@ -810,5 +819,5 @@
 !Project class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.36 1996-01-11 13:51:39 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.37 1996-02-07 14:11:43 cg Exp $'! !
 Project initialize!