--- a/Tools__NewSystemBrowser.st	Mon Feb 06 11:17:57 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 06 15:15:57 2017 +0100
@@ -59624,13 +59624,12 @@
 !
 
 checkIfSameSemanticsRedefinedWith:methodHere inClass:aClass
-    "check if methodHere (the just accepted or tobe removed method) 
+    "check if methodHere (the just accepted or to be removed method) 
      redefines an inherited method, which does the same?
      Returns an info-message string (if so) or nil if not.
     "
 
-    |sel superCls implClass methodThere treeThere treeHere
-     dictionary mClass remainingRenames|
+    |sel superCls implClass methodThere|
 
     RBParser isNil ifTrue:[^ nil].
     RBCodeDuplicationRule isNil ifTrue:[^ nil]. 
@@ -59670,21 +59669,9 @@
         ^ 'This method''s functionality is already inherited from ', implClass name , '.\\You may want to remove it here.'.
     ].
     
-"/    treeHere := RBParser
-"/                    parseMethod:methodHere source ? ''
-"/                    onError: [:aString :position | ^ nil "ignore any error"].
-"/    treeHere isNil ifTrue:[^ nil].
-"/    treeThere := RBParser
-"/                    parseMethod:methodThere source ? ''
-"/                    onError: [:aString :position | ^ nil "ignore any error"].
-"/    treeThere isNil ifTrue:[^ nil].
-"/    
-"/    (RBCodeDuplicationRule isParseTree:treeHere in:aClass duplicateOfTree:treeThere) ifTrue:[
-"/        ^ 'This method''s functionality is already inherited from ', implClass name , '.\\You may want to remove it here.'.
-"/    ].
     ^ nil
 
-    "Modified (format): / 06-07-2011 / 16:44:46 / cg"
+    "Modified (comment): / 06-02-2017 / 15:14:21 / cg"
 !
 
 checkIfSuperSendIsProbablyMissingIn:methodHere inClass:aClass