diff -r 77cc26a119cf -r 3f941651b761 DebugView.st
--- a/DebugView.st	Wed Oct 28 19:59:08 2009 +0100
+++ b/DebugView.st	Wed Oct 28 20:51:24 2009 +0100
@@ -5022,18 +5022,19 @@
     |c haltingMethod lineNrInHaltingMethod|
 
     "/ should a halt be ignored ?
-    IgnoredHalts isNil ifTrue:['1' infoPrintCR. ^ false].
+    IgnoredHalts isNil ifTrue:[^ false].
 
     c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
     c isNil ifTrue:[
         c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
     ].
-    c isNil ifTrue:['2' infoPrintCR. ^ false].
+    c isNil ifTrue:[^ false].
 
     c := c sender.
     haltingMethod := c method.
     lineNrInHaltingMethod := c lineNumber.
-Transcript showCR:c.
+    "/ Transcript showCR:c.
+
     ^ self class 
         isHaltToBeIgnoredIn:haltingMethod 
         atLineNr:lineNrInHaltingMethod
@@ -6800,11 +6801,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.480 2009-10-28 10:42:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.481 2009-10-28 19:51:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.480 2009-10-28 10:42:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.481 2009-10-28 19:51:24 cg Exp $'
 ! !
 
 DebugView initialize!