--- a/TextCollector.st Mon Oct 05 14:29:10 2015 +0200
+++ b/TextCollector.st Mon Oct 05 14:29:19 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -932,7 +930,9 @@
DebugSendersOfMessagePattern notNil ifTrue:[
(DebugSendersOfMessagePattern match:printString string) ifTrue:[
"/ to disable this right from inside the debugger, evaluate:
- "/ DebugSendersOfMessagePattern := nil
+ "
+ DebugSendersOfMessagePattern := nil
+ "
self halt:('Transcript: text matches: "', printString, '"').
].
].