--- a/SmallSense__MethodPO.st	Tue Apr 08 15:03:38 2014 +0200
+++ b/SmallSense__MethodPO.st	Tue Apr 08 21:46:51 2014 +0200
@@ -12,12 +12,22 @@
 
 !MethodPO class methodsFor:'Instance creation'!
 
-name:name class:class 
+name:nm class:class 
     ^ (self new)
-        name:name;
+        name:nm;
         class:class.
 
     "Created: / 17-10-2013 / 01:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+name:nm class:class stripOff: prefix
+    ^ prefix notNil ifTrue:[ 
+        MethodKeywordRestPO name: nm class: class stripOff: prefix.
+    ] ifFalse:[ 
+        self name: nm class: class.
+    ].
+
+    "Created: / 08-04-2014 / 21:20:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodPO methodsFor:'accessing'!