--- a/Project.st	Thu Jan 30 18:42:03 1997 +0100
+++ b/Project.st	Thu Jan 30 21:12:09 1997 +0100
@@ -259,6 +259,24 @@
 	dirName := '.'
     ].
     ^ dirName , Filename separator asString
+!
+
+rememberOverwrittenMethod:newMethod from:oldMethod
+    "remember a method (from another package) being overwritten.
+     This is only remembered, if the current project is not the
+     system project (to avoid filling this remembered-table)"
+
+    |p c|
+
+    p := CurrentProject.
+    (p notNil 
+    and:[p ~~ SystemProject]) ifTrue:[
+        p rememberOverwrittenMethod:newMethod from:oldMethod
+    ] ifFalse:[
+        'Project [info]: overwritten method not remembered in DefaultProject' infoPrintCR
+    ]
+
+    "Modified: 30.1.1997 / 21:10:30 / cg"
 ! !
 
 !Project methodsFor:'accessing'!
@@ -448,7 +466,8 @@
 
 rememberOverwrittenMethod:newMethod from:oldMethod
     "this is sent whenever a method is installed, which overwrites
-     an existing method from a different package."
+     an existing method from a different package.
+     Allows previous methods to be reconstructed."
 
     overwrittenMethods isNil ifTrue:[
         overwrittenMethods := IdentityDictionary new.
@@ -456,7 +475,7 @@
     overwrittenMethods at:newMethod put:oldMethod
 
     "Created: 27.1.1997 / 11:52:01 / cg"
-    "Modified: 27.1.1997 / 12:12:30 / cg"
+    "Modified: 30.1.1997 / 21:10:51 / cg"
 ! !
 
 !Project methodsFor:'initialization'!
@@ -985,6 +1004,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.51 1997-01-27 11:16:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.52 1997-01-30 20:12:09 cg Exp $'
 ! !
 Project initialize!