--- a/Project.st	Thu Jan 02 20:19:01 1997 +0100
+++ b/Project.st	Thu Jan 02 20:27:52 1997 +0100
@@ -277,9 +277,13 @@
 !
 
 defaultNameSpace:aNamespace
-    defaultNameSpace := aNamespace
+    defaultNameSpace := aNamespace.
+    self == CurrentProject ifTrue:[
+        Project changed:#defaultNameSpace 
+    ]
 
     "Created: 2.1.1997 / 19:54:37 / cg"
+    "Modified: 2.1.1997 / 20:27:37 / cg"
 !
 
 directory
@@ -859,6 +863,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.46 1997-01-02 19:07:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.47 1997-01-02 19:27:52 cg Exp $'
 ! !
 Project initialize!