--- a/DebugView.st	Sat Nov 01 17:45:47 2008 +0100
+++ b/DebugView.st	Sat Nov 01 22:10:08 2008 +0100
@@ -1899,14 +1899,14 @@
 !
 
 flyByHelpTextFor:aComponent at:aPointOrNil
-    |s line col pos interval|
+    |s vline line col pos interval|
 
     aComponent == codeView ifFalse:[^ nil].
     aPointOrNil isNil ifTrue:[^ nil].
 
-    line := codeView visibleLineOfY:aPointOrNil y.
-    line := codeView visibleLineToAbsoluteLine:line.
-    col := codeView colOfX:aPointOrNil x inVisibleLine:line.
+    vline := codeView visibleLineOfY:aPointOrNil y.
+    col := codeView colOfX:aPointOrNil x inVisibleLine:vline.
+    line := codeView visibleLineToAbsoluteLine:vline.
 
     pos := codeView characterPositionOfLine:line col:col.
     interval := pos to:pos.
@@ -4536,9 +4536,10 @@
     interval isEmpty ifTrue: [^ nil].
     RBParser isNil ifTrue:[^ nil].
 
-    source := currentMethod notNil 
-                ifTrue:[ currentMethod source ] 
-                ifFalse:[ codeView contents asString ].
+    source := codeView contents asString.
+"/    source := currentMethod notNil 
+"/                ifTrue:[ currentMethod source ] 
+"/                ifFalse:[ codeView contents asString ].
     source isNil ifTrue:[^ nil].
 
     ^ DoWhatIMeanSupport findNodeForInterval:interval in:(source string) allowErrors:true.
@@ -6530,7 +6531,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.453 2008-10-19 18:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.454 2008-11-01 21:10:08 cg Exp $'
 ! !
 
 DebugView initialize!