--- a/DebugView.st	Fri Mar 03 19:33:04 2006 +0100
+++ b/DebugView.st	Fri Mar 03 20:06:19 2006 +0100
@@ -26,7 +26,7 @@
 		firstContext stepHow cachable currentMethod ignoreBreakpoints
 		stepUntilEntering lastStepUntilEntering
 		lastSelectionInReceiverInspector lastSelectionInContextInspector
-		canShowMore exitAbort reportButton'
+		canShowMore exitAbort reportButton setOfHiddenCallingSelectors'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
 		DebuggingDebugger VerboseBacktraceDefault DefaultIcon
 		DefaultDebuggerBackgroundColor InitialNCHAINShown'
@@ -4245,6 +4245,7 @@
     |tree node source|
 
     interval isEmpty ifTrue: [^ nil].
+    RBParser isNil ifTrue:[^ nil].
 
     source := codeView contents asString string.
     source := currentMethod source.
@@ -4546,8 +4547,7 @@
             verboseBacktrace ~~ true ifTrue:[
                 (con isBlockContext
                  and:[(h := con home) == con sender
-                 and:[((h selector == #doIt)
-                       or:[h selector == #doIt:])
+                 and:[(self setOfHiddenCallingSelectors includes:h selector)
                  and:[h method who isNil]]]) ifTrue:[
                     calledContext := con.
                     con := con sender.
@@ -4559,7 +4559,7 @@
 
             "/ with dense backtrace, dont show below the doIt
             ( verboseBacktrace ~~ true
-            and:[ con selector == #doIt]) ifTrue:[
+            and:[ (self setOfHiddenCallingSelectors includes:con selector) ]) ifTrue:[
                 con := nil.  
             ] ifFalse:[
                 calledContext := con.
@@ -4949,6 +4949,14 @@
 
 isAborting
     ^ exitAction == #abort
+!
+
+setOfHiddenCallingSelectors
+    ^ setOfHiddenCallingSelectors ? #( #'doIt' #'doIt:' )
+!
+
+setOfHiddenCallingSelectors:aCollectionOfSymbols
+    setOfHiddenCallingSelectors := aCollectionOfSymbols
 ! !
 
 !DebugView methodsFor:'private-cache handling'!
@@ -5971,7 +5979,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.393 2006-03-02 19:23:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.394 2006-03-03 19:06:19 cg Exp $'
 ! !
 
 DebugView initialize!