--- a/XBMReader.st	Fri Jul 08 21:39:01 2005 +0200
+++ b/XBMReader.st	Mon Jul 11 15:20:15 2005 +0200
@@ -192,17 +192,17 @@
 !XBMReader methodsFor:'private-reading'!
 
 extractValueFor:keyword fromLine:lineString
-    |index value restString|
+    |index1 index2 value restString|
 
-    index := lineString indexOf:(Character space).
-    index := lineString indexOf:(Character space) startingAt:(index + 1).
-    (index == 0) ifTrue:[
+    index1 := lineString indexOf:(Character space).
+    index2 := lineString indexOf:(Character space) startingAt:(index1 + 1).
+    (index2 == 0) ifTrue:[
         ^ nil.
     ].
-    ((lineString copyTo:index - 1) endsWith:keyword) ifFalse:[
+    ((lineString copyTo:index2 - 1) endsWith:keyword) ifFalse:[
         ^ nil.
     ].
-    restString := lineString copyFrom:(index + 1).
+    restString := lineString copyFrom:(index2 + 1).
     value := Number readFromString:restString onError:nil.
     value isNil ifTrue:[
         ^ nil.
@@ -392,7 +392,7 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.52 2005-01-07 14:35:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.53 2005-07-11 13:20:15 cg Exp $'
 ! !
 
 XBMReader initialize!