--- a/STCCompilerInterface.st	Sun May 05 16:00:30 2013 +0200
+++ b/STCCompilerInterface.st	Tue May 07 17:42:47 2013 +0200
@@ -232,6 +232,13 @@
 
         oldMethod := classToCompileFor compiledMethodAt:selector.
         oldMethod notNil ifTrue:[package := oldMethod package].
+        install ifTrue:[
+            (Smalltalk
+                    changeRequest:#methodInClass
+                    with:(Array with:classToCompileFor with:selector with:oldMethod)) ifFalse:[
+                ^ #CannotLoad
+            ].
+        ].
 
         "
          load the method objectfile
@@ -862,11 +869,11 @@
 !STCCompilerInterface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.33 2013-04-03 17:57:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.34 2013-05-07 15:42:47 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.33 2013-04-03 17:57:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.34 2013-05-07 15:42:47 stefan Exp $'
 ! !