--- a/DebugView.st	Thu Mar 09 11:59:29 1995 +0100
+++ b/DebugView.st	Sat Mar 18 06:18:44 1995 +0100
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.29 1995-03-06 22:07:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.30 1995-03-18 05:18:23 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.29 1995-03-06 22:07:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.30 1995-03-18 05:18:23 claus Exp $
 "
 !
 
@@ -533,7 +533,9 @@
 
 showError:message
     codeView contents:(resources string:message).
-    codeView flash
+    shown ifTrue:[
+        exclusive ifFalse:[codeView flash]
+    ]
 !
 
 interrestingContextFrom:aContext