--- a/DebugView.st	Mon Aug 10 16:03:50 1998 +0200
+++ b/DebugView.st	Tue Aug 11 20:57:22 1998 +0200
@@ -3515,6 +3515,11 @@
     Object errorSignal handle:[:ex |
         |s con|
 
+        ex signal == Object haltSignal ifTrue:[
+            'DebugView [info]: halt ignored - while showing selection in debugger' infoPrintCR.
+            ex proceed
+        ].
+
         'DebugView [info]: error when showing selection in debugger ignored' infoPrintCR.
 
         s := '' writeStream.
@@ -3539,7 +3544,7 @@
         self doShowSelection:lineNr
     ]
 
-    "Modified: / 29.7.1998 / 21:57:11 / cg"
+    "Modified: / 11.8.1998 / 20:56:45 / cg"
 !
 
 updateForContext:lineNr
@@ -3872,6 +3877,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.214 1998-08-04 18:41:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.215 1998-08-11 18:57:22 cg Exp $'
 ! !
 DebugView initialize!