--- a/Method.st	Wed Oct 19 01:35:18 2016 +0200
+++ b/Method.st	Wed Oct 19 12:45:12 2016 +0200
@@ -1058,6 +1058,7 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
+
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -2693,6 +2694,16 @@
     ^ self externalLibraryFunction notNil
 !
 
+isForCompatibility
+    "returns true, if this method only used for compatibility
+     and should use only when porting foreign code but not otherwise"
+
+    |res|
+
+    ^ self package == #'stx:libcompat'
+      or:[(res := self resources) notNil and:[res includesKey:#compatibility]]
+!
+
 isInvalid
     "return true, if this method is not executable due to
      a (re)-compilation error. Since invalidation is by patching the
@@ -3041,16 +3052,6 @@
     "Created: / 9.11.1998 / 06:15:08 / cg"
 !
 
-overrides: aMethod
-    <resource: #obsolete>
-
-    self obsoleteMethodWarning: 'Use overwrites: instead, stupid naming'.
-    self overwrites: aMethod.
-
-    "Modified: / 18-06-2009 / 12:15:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 05-07-2012 / 10:52:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 overwrites:aMethod
     |mth|
 
@@ -3728,6 +3729,7 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
+
 !Method methodsFor:'source management'!
 
 revisionInfo