--- a/ParseTreeIndex.st	Mon Feb 02 12:49:11 2015 +0100
+++ b/ParseTreeIndex.st	Mon Feb 02 12:54:08 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 SortedCollection subclass:#ParseTreeIndex
 	instanceVariableNames:'tree source'
 	classVariableNames:''
@@ -274,12 +276,16 @@
 
 !ParseTreeIndex::Element methodsFor:'testing'!
 
+isClassVariable
+    ^node isVariable and:[node isClassVariable]
+!
+
 isGlobal
     ^ node isGlobal
 !
 
 isInstanceVariable
-    ^node isVariable and:[node isInstance]
+    ^node isVariable and:[node isInstanceVariable]
 
     "Created: / 01-07-2013 / 21:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -314,10 +320,10 @@
 !ParseTreeIndex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.5 2014-06-15 12:03:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.6 2015-02-02 11:54:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.5 2014-06-15 12:03:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.6 2015-02-02 11:54:08 cg Exp $'
 ! !