--- a/LLVMBasicBlock.st	Sat Jul 11 10:03:12 2015 +0100
+++ b/LLVMBasicBlock.st	Sat Jul 11 16:56:36 2015 +0100
@@ -3,9 +3,21 @@
 "{ NameSpace: Smalltalk }"
 
 LLVMObject subclass:#LLVMBasicBlock
-	instanceVariableNames:''
+	instanceVariableNames:'module'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'LLVM-Core'
 !
 
+!LLVMBasicBlock methodsFor:'accessing'!
+
+module
+    ^ module
+! !
+
+!LLVMBasicBlock methodsFor:'initialization'!
+
+module:aLLVMModule
+    module := aLLVMModule.
+! !
+