--- a/DoWhatIMeanSupport.st	Sat Apr 27 14:56:07 2013 +0200
+++ b/DoWhatIMeanSupport.st	Tue May 07 17:28:31 2013 +0200
@@ -1371,7 +1371,7 @@
 
     (aPartialClassName startsWith:'Smalltalk::') ifTrue:[
         nsPrefix := 'Smalltalk::'.
-        searchName := aPartialClassName copyFrom:'Smalltalk::' size + 1
+        searchName := aPartialClassName withoutPrefix:'Smalltalk::'
     ] ifFalse:[
         nsPrefix := ''.
         searchName := aPartialClassName.
@@ -2283,6 +2283,6 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.99 2013-04-25 13:12:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.100 2013-05-07 15:28:31 cg Exp $'
 ! !