--- a/MethodChange.st	Thu Apr 23 06:48:53 2015 +0200
+++ b/MethodChange.st	Thu Apr 23 10:43:12 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	       All Rights Reserved
@@ -89,16 +87,6 @@
     "Created: / 7.2.1998 / 19:47:53 / cg"
 !
 
-changeMethod
-    |cls|
-
-    cls := self changeClass.
-    cls isNil ifTrue:[^ nil].
-    ^ cls compiledMethodAt:selector asSymbol 
-
-    "Created: / 7.2.1998 / 19:47:53 / cg"
-!
-
 changeSelector
     ^ selector
 
@@ -156,21 +144,6 @@
     "Modified: / 16.2.1998 / 14:28:12 / cg"
 !
 
-delta
-    "/ obsolete: please use deltaDetail
-
-    | mth |
-
-    self isMethodCodeChange ifFalse:[^super delta].
-    mth := self changeMethod.
-    mth isNil ifTrue:[^#+].
-    ^(self class isSource: self source sameSourceAs: mth source)
-        ifTrue:[#=]
-        ifFalse:[#~]
-
-    "Modified: / 18-11-2011 / 14:48:50 / cg"
-!
-
 deltaDetail
     "Returns a delta to the current state as a ChangeDelta object"
 
@@ -476,6 +449,7 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
+
 !MethodChange methodsFor:'testing'!
 
 isMethodChange