--- a/Tools__CompilerWarningToDoListEntry.st	Fri Jan 11 12:37:56 2008 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Fri Jan 11 13:40:37 2008 +0100
@@ -182,8 +182,13 @@
         openInClass:(self problemClass) selector:selector.
 
     (pos := position) isArray ifTrue:[
-        pos := position first.
+        pos := pos first.
+    ] ifFalse:[
+        (pos isKindOf:Interval) ifTrue:[
+            pos := pos start.
+        ]
     ].
+
     brwsr codeView cursorToCharacterPosition:pos.
 "/    brwsr codeView selectLine:(brwsr codeView cursorLine).
 
@@ -251,5 +256,5 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.8 2007-04-11 10:44:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.9 2008-01-11 12:40:37 cg Exp $'
 ! !