--- a/Project.st	Mon Mar 29 12:06:19 1999 +0200
+++ b/Project.st	Tue Mar 30 00:16:38 1999 +0200
@@ -420,10 +420,12 @@
      in this nameSpace. Useful, when filing in ST-80 code, to avoid
      overwriting of standard classes."
 
-    defaultNameSpace := aNamespace.
-    self changed:#defaultNameSpace.
-    self == CurrentProject ifTrue:[
-        Project changed:#defaultNameSpace 
+    aNamespace ~~ defaultNameSpace ifTrue:[
+        defaultNameSpace := aNamespace.
+        self changed:#defaultNameSpace.
+        self == CurrentProject ifTrue:[
+            Project changed:#defaultNameSpace 
+        ]
     ]
 
     "Created: 2.1.1997 / 19:54:37 / cg"
@@ -729,7 +731,7 @@
 
     s := aStream.
 
-    s nextPutLine:'; $Header: /cvs/stx/stx/libbasic/Project.st,v 1.71 1999-03-25 17:34:23 cg Exp $'; nextPutLine:';'.
+    s nextPutLine:'; $Header: /cvs/stx/stx/libbasic/Project.st,v 1.72 1999-03-29 22:16:38 cg Exp $'; nextPutLine:';'.
     s nextPutLine:'; Project saved ' , Smalltalk timeStamp; nextPutLine:';'.
     s nextPutLine:'; Be careful when editing - do not corrupt the files syntax.'.
     s nextPutLine:'; (Lines starting with a semicolon are comment lines)'.
@@ -1224,11 +1226,18 @@
 !
 
 propertyAt:aKey put:aValue
+    |oldValue|
+
+    oldValue := self propertyAt:aKey.
+
     properties isNil ifTrue:[
         properties := IdentityDictionary new
     ].
     properties at:aKey put:aValue.
-    self changed:aKey.
+
+    oldValue ~~ aValue ifTrue:[
+        self changed:aKey.
+    ].
 
     "Created: / 23.3.1999 / 14:21:11 / cg"
 !
@@ -1247,12 +1256,7 @@
         self warn:'invalid project type'.
         ^ self
     ].
-    properties isNil ifTrue:[
-        properties := IdentityDictionary new
-    ].
-    properties at:#type put:aSymbol.
-    self changed:#type.
-
+    self propertyAt:#type put:aSymbol
 !
 
 wasLoadedFromFile
@@ -1505,6 +1509,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.71 1999-03-25 17:34:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.72 1999-03-29 22:16:38 cg Exp $'
 ! !
 Project initialize!