--- a/SmallSense__SmalltalkInferencer.st	Fri May 09 17:29:26 2014 +0100
+++ b/SmallSense__SmalltalkInferencer.st	Tue May 13 16:34:38 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 Object subclass:#SmalltalkInferencer
-	instanceVariableNames:'type class classInfo source parser parserClass tree'
+	instanceVariableNames:'type class classInfo source parser parserClass tree environment'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Smalltalk-Types-Inference'
@@ -76,6 +76,14 @@
 
 !SmalltalkInferencer methodsFor:'accessing'!
 
+environment
+    ^ environment
+!
+
+environment:something
+    environment := something.
+!
+
 klass
     ^ class