--- a/SmallSense__SmalltalkInferencer.st	Tue Aug 27 00:01:41 2013 +0100
+++ b/SmallSense__SmalltalkInferencer.st	Thu Aug 29 14:01:15 2013 +0100
@@ -390,7 +390,7 @@
     anObject inferedType: t.
 
     anObject isGlobalVariable ifTrue:[
-        t addClass: (Smalltalk at: anObject name) class.
+        t addClass: (Smalltalk at: anObject name asSymbol) class.
         t trustfullness: 100.
         ^self.
     ].
@@ -401,6 +401,7 @@
     ].
 
     "Created: / 26-11-2011 / 13:31:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-08-2013 / 14:00:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkInferencer::Phase2 methodsFor:'processing'!