--- a/DebugView.st	Tue Jun 18 11:01:25 2002 +0200
+++ b/DebugView.st	Wed Jun 19 14:07:55 2002 +0200
@@ -5454,7 +5454,10 @@
         s nextPutAll: '**** '; nextPutLine:(con printString).
         con := con sender.
         [con notNil] whileTrue:[
+    Error catch:[:ex |
             s nextPutAll: '**** '; nextPutLine:(con printString).
+    ].
+
             con receiver == self ifTrue:[
                 con := nil
             ] ifFalse:[
@@ -5869,6 +5872,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.319 2002-05-02 08:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.320 2002-06-19 12:07:55 cg Exp $'
 ! !
 DebugView initialize!