--- a/MethodFinderWindow.st	Wed Jul 20 11:35:42 2016 +0200
+++ b/MethodFinderWindow.st	Wed Jul 27 21:28:41 2016 +0200
@@ -1444,10 +1444,10 @@
     ^ aStringToBeCleaned
 !
 
-markMatchingClasses:aSelector classesWithSelector:anOrderedCollection 
+markMatchingClasses:aSelector classesWithSelector:anOrderedCollection
     " Matches the class of the receiver with all the elements in anOrderedCollection
      (which are classes with selectors). If a match is found it is marked with an asterisk.
-     The classes are then sorted so the the asterisk appears first. Return the
+     The classes are then sorted so the asterisk appears first. Return the
      markedClassList."
     
     |marker recClass unmarkedClassList markedClassList|
@@ -1455,22 +1455,22 @@
     marker := self class markerForImplementingClass.
     recClass := receiver value class.
     unmarkedClassList := anOrderedCollection copy.
-    unmarkedClassList do:[:classAndMethod | 
+    unmarkedClassList do:[:classAndMethod |
         |className class sel|
 
         className := classAndMethod copyButLast:aSelector size.
         class := Smalltalk classNamed:className. "/ Compiler evaluate:className.
-        
+
         "/ (recClass == class)
-        
+
         (recClass whichClassImplements:aSelector) == class ifTrue:[
             "/ unmarkedClassList add: marker, classAndMethod.
             unmarkedClassList add:classAndMethod allBold.
             unmarkedClassList remove:classAndMethod.
         ].
     ].
-    unmarkedClassList 
-        sort:[:a :b | 
+    unmarkedClassList
+        sort:[:a :b |
             |rawA rawB|
 
             rawA := a string withoutPrefix:marker.