--- a/MethodFinderWindow.st	Mon May 06 17:07:48 2013 +0200
+++ b/MethodFinderWindow.st	Tue May 07 17:29:09 2013 +0200
@@ -564,16 +564,13 @@
     ].
     marker := self class markerForImplementingClass.
 
-    theArgument := anArgument string.
-    (theArgument startsWith:marker) ifTrue:[
-        theArgument := theArgument copyFrom:marker size+1
-    ].
+    theArgument := anArgument string withoutPrefix:marker.
     aClass := theArgument copyUpTo:(Character space).
     x := aClass size + 2.
     aSelector := theArgument copyFrom:x.
     aClass := Smalltalk classNamed:aClass.
     (aSelector startsWith:'class ') ifTrue:[
-        aSelector := aSelector copyFrom:'class 'size+1.
+        aSelector := aSelector withoutPrefix:'class '.
         aClass := aClass class.
     ].
     ^ aClass -> aSelector asSymbol
@@ -1169,10 +1166,8 @@
         ].
 
       unmarkedClassList sort:[:a :b | |rawA rawB|
-                    rawA := a string.
-                    (rawA startsWith:marker) ifTrue:[rawA := rawA copyFrom:marker size+1].
-                    rawB := b string.
-                    (rawB startsWith:marker) ifTrue:[rawB := rawB copyFrom:marker size+1].
+                    rawA := a string withoutPrefix:marker.
+                    rawB := b string withoutPrefix:marker.
                     rawA < rawB.  ].
       markedClassList:= unmarkedClassList. 
 
@@ -1243,3 +1238,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+