--- a/SmallSense__MethodPO.st	Fri Mar 06 07:09:06 2015 +0000
+++ b/SmallSense__MethodPO.st	Sat Mar 07 10:53:11 2015 +0000
@@ -142,13 +142,14 @@
             ^ selector
         ].
     ].
-    ^ String 
-        fromStringCollection: (selector tokensBasedOn: $:)
-        separatedBy: ':  '.
+    ^selector isKeyword ifTrue:[
+        String streamContents: [:s | selector keywords do:[:kw | s nextPutAll: kw; space; space ] ]
+    ] ifFalse:[ 
+        selector
+    ].
 
     "Created: / 02-10-2013 / 02:33:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-05-2014 / 13:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-05-2014 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-03-2015 / 10:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodPO methodsFor:'accessing-private'!