--- a/DebugView.st	Thu Aug 01 17:09:45 2013 +0200
+++ b/DebugView.st	Fri Aug 02 00:03:15 2013 +0200
@@ -1343,6 +1343,8 @@
 
 "/ Transcript showCR:aContextArray.
 
+    '1' printCR.
+
     nMax := aContextArray size.
     nMax <= 1 ifTrue:[^ 1].
     con := aContextArray at:1.
@@ -1561,7 +1563,7 @@
     ^ offset
 
     "Created: / 17-11-2001 / 20:37:49 / cg"
-    "Modified: / 08-07-2011 / 13:15:49 / cg"
+    "Modified: / 01-08-2013 / 23:18:36 / cg"
 ! !
 
 !DebugView methodsFor:'basic'!
@@ -6418,16 +6420,15 @@
 
     |c cReceiver|
 
-Transcript showCR:'1'.                                                      
     "/ look for a breakpoint-wrapper's context
     c := thisContext findNextContextWithSelector:#'raiseRequestWith:errorString:in:' or:nil or:nil.
     c isNil ifTrue:[
-Transcript showCR:'2'.                                                      
         ^ true.
     ].
-Transcript showCR:c.
     cReceiver := c receiver.
     ^ cReceiver == BreakPointInterrupt
+
+    "Modified: / 01-08-2013 / 23:34:01 / cg"
 !
 
 isHaltToBeIgnored
@@ -8564,15 +8565,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.606 2013-07-28 11:52:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.607 2013-08-01 22:03:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.606 2013-07-28 11:52:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.607 2013-08-01 22:03:15 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.606 2013-07-28 11:52:27 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.607 2013-08-01 22:03:15 cg Exp $'
 ! !