--- a/SmallSense__Manager.st	Sun Aug 25 13:05:24 2013 +0100
+++ b/SmallSense__Manager.st	Mon Aug 26 10:33:23 2013 +0100
@@ -6,7 +6,7 @@
 	instanceVariableNames:'classes accessLock updater'
 	classVariableNames:'Instance'
 	poolDictionaries:''
-	category:'SmallSense-Model'
+	category:'SmallSense-Smalltalk-Types-Info'
 !
 
 
@@ -193,10 +193,11 @@
     method mclass isNil ifTrue:["Obsolete method" ^ self ].
     method mclass programmingLanguage isSmalltalk ifFalse: [ ^ self ].
 "/    Transcript showCR: 'SmallSense: updating info for: ', method printString.
-    inferencer := Inferencer forMethod: method.
+    inferencer := SmalltalkInferencer forMethod: method.
     inferencer process.
 
     "Created: / 27-11-2011 / 18:06:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2013 / 10:20:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Manager class methodsFor:'documentation'!