--- a/ParseTreeIndex.st	Fri Feb 14 11:21:59 2014 +0100
+++ b/ParseTreeIndex.st	Fri Feb 14 11:26:50 2014 +0100
@@ -256,6 +256,10 @@
 
 !ParseTreeIndex::Element methodsFor:'testing'!
 
+isGlobal
+    ^ node isGlobal
+!
+
 isInstanceVariable
     ^node isVariable and:[node isInstance]
 
@@ -292,10 +296,10 @@
 !ParseTreeIndex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.1 2014-02-05 19:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.2 2014-02-14 10:26:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.1 2014-02-05 19:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ParseTreeIndex.st,v 1.2 2014-02-14 10:26:50 cg Exp $'
 ! !