--- a/Smalltalk.st	Mon Nov 27 20:55:52 2006 +0100
+++ b/Smalltalk.st	Mon Nov 27 22:38:03 2006 +0100
@@ -6409,7 +6409,9 @@
     "/ try to load the project definition class
     f := (packageDir construct:(ProjectDefinition initialClassNameForDefinitionOf:aPackageId)) withSuffix:'st'.
     f exists ifTrue:[
-        f fileIn.
+        Class withoutUpdatingChangesDo:[
+            f fileIn.
+        ].
         defClass := ProjectDefinition definitionClassForPackage:aPackageId.
         defClass notNil ifTrue:[
             defClass load.
@@ -6919,5 +6921,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.785 2006-11-27 18:20:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.786 2006-11-27 21:38:03 stefan Exp $'
 ! !