--- a/Project.st	Tue Mar 23 14:21:14 1999 +0100
+++ b/Project.st	Tue Mar 23 19:57:46 1999 +0100
@@ -413,6 +413,7 @@
      overwriting of standard classes."
 
     defaultNameSpace := aNamespace.
+    self changed:#defaultNameSpace.
     self == CurrentProject ifTrue:[
         Project changed:#defaultNameSpace 
     ]
@@ -436,6 +437,7 @@
      If not specified, a fileOut will be done into that directory"
 
     directoryName := aDirectoryName.
+    self changed:#directory.
     self == CurrentProject ifTrue:[
         Project changed:#directory 
     ]
@@ -457,6 +459,7 @@
      This is for the user only - shown in the projectViews label"
 
     name := aString.
+    self changed:#name.
     self == CurrentProject ifTrue:[
         Project changed:#name
     ]
@@ -491,6 +494,7 @@
      in this project."
 
     packageName := aStringOrSymbol asSymbol.
+    self changed:#package.
     self == CurrentProject ifTrue:[
         Project changed:#package
     ]
@@ -1105,7 +1109,9 @@
     properties isNil ifTrue:[
         properties := IdentityDictionary new
     ].
-    properties at:#comment put:aString
+    properties at:#comment put:aString.
+    self changed:#comment.
+
 !
 
 documentationURL
@@ -1149,7 +1155,9 @@
     properties isNil ifTrue:[
         properties := IdentityDictionary new
     ].
-    properties at:#type put:aSymbol
+    properties at:#type put:aSymbol.
+    self changed:#type.
+
 !
 
 wasLoadedFromFile
@@ -1399,6 +1407,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.67 1999-03-23 13:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.68 1999-03-23 18:57:46 cg Exp $'
 ! !
 Project initialize!