--- a/Tools__BreakpointBrowser.st	Mon Oct 26 11:47:58 2009 +0100
+++ b/Tools__BreakpointBrowser.st	Mon Oct 26 11:57:06 2009 +0100
@@ -1485,6 +1485,14 @@
     "only here for demonstration purposes - should be found in the list"
 
     self halt
+
+    "after the first halt, in the debugger, ignore this halt for some time and see what
+     the breakpoint browser shows...
+
+     10 timesRepeat:[
+        self new aMethodWith_halt
+     ].
+    "
 !
 
 aMethodWith_halt2
@@ -1745,11 +1753,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.17 2009-10-26 10:47:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.18 2009-10-26 10:57:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.17 2009-10-26 10:47:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.18 2009-10-26 10:57:06 cg Exp $'
 ! !
 
 BreakpointBrowser initialize!