--- a/TextCollectingCompilationErrorHandler.st	Tue Nov 02 12:59:27 2010 +0100
+++ b/TextCollectingCompilationErrorHandler.st	Tue Nov 02 13:01:10 2010 +0100
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libcomp' }"
 
 CompilationErrorHandler subclass:#TextCollectingCompilationErrorHandler
-	instanceVariableNames:''
+	instanceVariableNames:'lines'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler'
@@ -43,19 +43,31 @@
 !TextCollectingCompilationErrorHandler methodsFor:'error handling'!
 
 error:aMessage position:position to:endPos from:aCompiler
+    (lines includes:aMessage) ifTrue:[^ self ].
+    lines add:aMessage.
     myStream nextPutLine:(aMessage allBold colorizeAllWith:Color red darkened).
 
     "Created: / 02-11-2010 / 12:52:23 / cg"
 !
 
 warning:aMessage position:position to:endPos from:aCompiler
+    (lines includes:aMessage) ifTrue:[^ self ].
+    lines add:aMessage.
     myStream nextPutLine:aMessage.
 
     "Created: / 02-11-2010 / 12:51:30 / cg"
 ! !
 
+!TextCollectingCompilationErrorHandler methodsFor:'initialization'!
+
+initialize
+    lines := OrderedCollection new.
+
+    "Created: / 02-11-2010 / 13:00:55 / cg"
+! !
+
 !TextCollectingCompilationErrorHandler class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/TextCollectingCompilationErrorHandler.st,v 1.1 2010-11-02 11:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/TextCollectingCompilationErrorHandler.st,v 1.2 2010-11-02 12:01:10 cg Exp $'
 ! !