--- a/Cface__CFunctionNode.st	Fri Dec 26 23:53:37 2014 +0100
+++ b/Cface__CFunctionNode.st	Sun Dec 28 22:29:51 2014 +0100
@@ -123,9 +123,10 @@
 
 smalltalkPrimitiveSelector
 
-    ^('prim' , smalltalkName capitalized) asSymbol
+    ^ self smalltalkSelector
 
     "Created: / 10-07-2008 / 08:50:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 28-12-2014 / 10:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 smalltalkPrimitiveSelectorIterlacedWithArgumentNames
@@ -277,3 +278,4 @@
 version_SVN
     ^ '$Id$'
 ! !
+