--- a/Cface__LLVM_C.st	Wed Aug 12 07:32:13 2015 +0100
+++ b/Cface__LLVM_C.st	Thu Aug 13 06:01:15 2015 +0100
@@ -101,7 +101,7 @@
     (className notNil and:[(class := Smalltalk at: className) notNil]) ifTrue:[
         ^class category
     ].
-    ^'LLVM-Core'
+    ^'LLVM-S-Core'
 
     "Created: / 05-09-2012 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 30-06-2015 / 13:53:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -126,6 +126,9 @@
 
     | baseName |
 
+    type cName = 'LLVMBuilderRef' ifTrue:[
+    	^'LLVMIRBuilder'
+    ].
     baseName := super smalltalkClassNameForDerivedType:type.
     (baseName endsWith: 'Ref') ifTrue:[
         baseName := baseName copyTo: baseName size - 3