--- a/SmallSense__SmalltalkInferencer.st	Tue Sep 24 01:53:26 2013 +0100
+++ b/SmallSense__SmalltalkInferencer.st	Tue Sep 24 02:14:28 2013 +0100
@@ -9,14 +9,14 @@
 	category:'SmallSense-Smalltalk-Types-Inference'
 !
 
-ParseNodeVisitor subclass:#Phase1
+SmalltalkParseNodeVisitor subclass:#Phase1
 	instanceVariableNames:'classInfo sends types'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SmalltalkInferencer
 !
 
-ParseNodeVisitor subclass:#Phase2
+SmalltalkParseNodeVisitor subclass:#Phase2
 	instanceVariableNames:'classInfo'
 	classVariableNames:''
 	poolDictionaries:''