--- a/BlockNode.st	Tue Jun 28 22:00:02 2011 +0200
+++ b/BlockNode.st	Tue Jun 28 22:01:14 2011 +0200
@@ -15,8 +15,8 @@
 	instanceVariableNames:'blockArgs statements home inlineBlock exitBlock blockVars
 		needsHome lineNr endLineNr blockArgAccessedInBlock numTemp
 		maxNumTemp indexOfFirstTemp subBlocks accessedOuterBlockVars
-		possiblyInlined invocationSelector startPosition endPosition
-		inlined'
+		possiblyInlined invocationSelector charStartIndex charEndIndex
+		index inlined endPointIndex'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler-Support'
@@ -99,6 +99,22 @@
     "Modified: 18.6.1997 / 12:06:43 / cg"
 !
 
+charEndIndex
+    ^ charEndIndex
+!
+
+charEndIndex:something
+    charEndIndex := something.
+!
+
+charStartIndex
+    ^ charStartIndex
+!
+
+charStartIndex:something
+    charStartIndex := something.
+!
+
 endLineNumber
     ^ endLineNr
 
@@ -111,12 +127,12 @@
     "Created: 21.10.1996 / 14:17:57 / cg"
 !
 
-endPosition
-    ^ endPosition
+endPointIndex
+    ^ endPointIndex
 !
 
-endPosition:something
-    endPosition := something.
+endPointIndex:something
+    endPointIndex := something.
 !
 
 home
@@ -203,14 +219,6 @@
     "Modified: / 27-04-2010 / 11:56:51 / cg"
 !
 
-startPosition
-    ^ startPosition
-!
-
-startPosition:something
-    startPosition := something.
-!
-
 statements
     ^ statements
 !
@@ -979,10 +987,10 @@
 
 !BlockNode class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.83 2010-05-03 16:51:07 cg Exp $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.84 2011-06-28 20:01:14 vrany Exp $'
 !
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.83 2010-05-03 16:51:07 cg Exp $'
+version_SVN
+    ^ ' Id '
 ! !