--- a/InspectorView.st	Mon Jan 12 11:23:16 2004 +0100
+++ b/InspectorView.st	Mon Jan 12 14:46:46 2004 +0100
@@ -1106,7 +1106,7 @@
     "helper - return the index for a named instVar;
      nil, if self or a keyed instvar is selected."
 
-    |idx nNamedInstvarsShown cls baseCls firstRealIndex|
+    |idx nNamedInstvarsShown cls baseCls firstRealIndex line|
 
     lineNr isNil ifTrue:[^ nil].
     firstRealIndex := 1.
@@ -1120,7 +1120,8 @@
         firstRealIndex := 2.
     ].
 
-    [(listView at:firstRealIndex) startsWith:'-'] whileTrue:[
+    [line := listView at:firstRealIndex. 
+     (line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
         firstRealIndex := firstRealIndex + 1.
         idx := idx - 1.
     ].
@@ -1147,7 +1148,7 @@
     "helper - return the index of the key-list;
      nil, if self or a namedInstVar is selected."
 
-    |idx nNamedInstvarsShown cls baseCls firstRealIndex|
+    |idx nNamedInstvarsShown cls baseCls firstRealIndex line|
 
     lineNr isNil ifTrue:[^ nil].
 
@@ -1161,7 +1162,8 @@
         firstRealIndex := firstRealIndex + 1.
     ].
 
-    [(listView at:firstRealIndex) startsWith:'-'] whileTrue:[
+    [line := listView at:firstRealIndex. 
+     (line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
         firstRealIndex := firstRealIndex + 1.
         idx := idx - 1.
     ].
@@ -1410,7 +1412,7 @@
     ].
 
     ((l := listView at:lineNr) startsWith:$-) ifTrue:[
-        (l ~= '-') ifTrue:[
+        (l ~= '-' and:[(l at:2) isDigit not "negative number"]) ifTrue:[
             ^ self valueForSpecialLine:(listView at:lineNr)
         ].
     ].
@@ -1708,5 +1710,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.142 2003-08-29 15:39:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.143 2004-01-12 13:46:46 stefan Exp $'
 ! !