--- a/SmallSense__ParseTreeIndexEntry.st	Tue Sep 24 02:14:28 2013 +0100
+++ b/SmallSense__ParseTreeIndexEntry.st	Tue Sep 24 12:42:20 2013 +0100
@@ -28,7 +28,7 @@
 "{ NameSpace: SmallSense }"
 
 Magnitude subclass:#ParseTreeIndexEntry
-	instanceVariableNames:'next prev node'
+	instanceVariableNames:'next prev start stop node'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Index'
@@ -144,15 +144,23 @@
 !
 
 start
-    ^ node startPosition
+    ^ start notNil ifTrue:[start] ifFalse:[node startPosition]
 
-    "Modified: / 16-02-2012 / 20:56:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 03:01:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+start:something
+    start := something.
 !
 
 stop
-    ^ node endPosition
+    ^ stop notNil ifTrue:[stop] ifFalse:[node endPosition]
 
-    "Modified: / 16-02-2012 / 20:56:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 03:01:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+stop:something
+    stop := something.
 ! !
 
 !ParseTreeIndexEntry methodsFor:'comparing'!
@@ -210,6 +218,12 @@
 
 !ParseTreeIndexEntry methodsFor:'testing'!
 
+isGlobal
+    ^ node isGlobal
+
+    "Created: / 24-09-2013 / 02:50:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isInstanceVariable
     ^node isVariable and:[node isInstance]
 
@@ -217,10 +231,10 @@
 !
 
 isSelector
-    ^ node class == SelectorNode
+    ^ node isSelector
 
     "Created: / 21-08-2011 / 09:09:19 / cg"
-    "Modified: / 16-02-2012 / 21:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 02:57:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isSelf