--- a/ClassDescription.st	Thu Jun 18 14:19:12 2009 +0100
+++ b/ClassDescription.st	Fri Jun 19 16:51:39 2009 +0100
@@ -1047,12 +1047,17 @@
                     ^ nil 
                 ]].
                 "if continued, install as usual - and use new package"
-                newMethod overriddenMethod: oldMethod.
             ]
         ]
     ].
 
     (super addSelector:newSelector withMethod:newMethod) ifTrue:[
+        "Set overriden method"
+        oldMethod ifNotNil:
+	    [oldPackage := oldMethod package.
+            newPackage := newMethod package.
+            oldPackage ~= newPackage ifTrue:
+                [newMethod overriddenMethod: oldMethod]].       
         self addChangeRecordForMethod:newMethod fromOld:oldMethod.
     ].
 
@@ -4049,7 +4054,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassDescription.st 10456 2009-06-18 13:19:12Z vranyj1 $'
+    ^ '$Id: ClassDescription.st 10457 2009-06-19 15:51:39Z vranyj1 $'
 ! !
 
 ClassDescription initialize!

--- a/stx_libbasic.st	Thu Jun 18 14:19:12 2009 +0100
+++ b/stx_libbasic.st	Fri Jun 19 16:51:39 2009 +0100
@@ -482,12 +482,12 @@
 !stx_libbasic class methodsFor:'description - svn'!
 
 svnRevisionNr
-    ^"$SVN-Revision:"10453"$"
+    ^"$SVN-Revision:"10456"$"
 ! !
 
 !stx_libbasic class methodsFor:'documentation'!
 
 version
-    ^ '$Id: stx_libbasic.st 10454 2009-06-17 20:40:25Z vranyj1 $'
+    ^ '$Id: stx_libbasic.st 10457 2009-06-19 15:51:39Z vranyj1 $'
 ! !