--- a/TextCollector.st	Mon Apr 04 14:37:57 2011 +0200
+++ b/TextCollector.st	Mon Apr 04 15:38:56 2011 +0200
@@ -147,15 +147,18 @@
 !TextCollector class methodsFor:'debugging'!
 
 debugSendersOfMessagePattern:aGLOBMatchPattern
-    "ever want to know, who sends a particular message to the transcript ?
-     Call this with a match string and get a halt, when the message is next sent"
+    "ever want to know, who sends a particular text-message to the transcript ?
+     Call this with a match string and get a halt, when the text appears is sent next "
 
     DebugSendersOfMessagePattern := aGLOBMatchPattern
 
     "
      self debugSendersOfMessagePattern:'no such*'
+     self debugSendersOfMessagePattern:'remove*'
      self debugSendersOfMessagePattern:nil.
     "
+
+    "Modified: / 04-04-2011 / 15:37:39 / cg"
 ! !
 
 !TextCollector class methodsFor:'defaults'!
@@ -895,11 +898,11 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.104 2009-12-03 10:45:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.105 2011-04-04 13:38:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.104 2009-12-03 10:45:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.105 2011-04-04 13:38:56 cg Exp $'
 ! !
 
 TextCollector initialize!