--- a/MethodChange.st Tue May 13 11:47:35 2014 +0200
+++ b/MethodChange.st Wed May 14 10:50:44 2014 +0200
@@ -90,7 +90,7 @@
cls := self changeClass.
cls isNil ifTrue:[^ nil].
- ^ cls compiledMethodAt:selector
+ ^ cls compiledMethodAt:selector asSymbol
"Created: / 7.2.1998 / 19:47:53 / cg"
!
@@ -460,7 +460,6 @@
"Created: / 09-10-2006 / 13:58:09 / cg"
! !
-
!MethodChange methodsFor:'testing'!
isMethodChange
@@ -530,14 +529,14 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
!
version_SVN
- ^ '$Id: MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+ ^ '$Id: MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
! !