--- a/DebugView.st	Thu Oct 17 21:24:07 1996 +0200
+++ b/DebugView.st	Fri Oct 18 14:37:51 1996 +0200
@@ -141,7 +141,7 @@
     OpenDebuggers notNil ifTrue:[
         active := Processor activeProcess.
         OpenDebuggers do:[:aDebugger |
-            aDebugger notNil ifTrue:[
+            (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
                 (aDebugger inspectedProcess == active) ifTrue:[
 "/ 'entering stepping debugger again' printNL.
                     aDebugger unstep.
@@ -625,6 +625,9 @@
         ] ifFalse:[
             (OpenDebuggers includes:self) ifFalse:[
                 idx := OpenDebuggers identityIndexOf:nil.
+                idx == 0 ifTrue:[
+		    idx := OpenDebuggers identityIndexOf:0
+		].
                 idx ~~ 0 ifTrue:[
                     OpenDebuggers at:idx put:self
                 ] ifFalse:[
@@ -2740,5 +2743,5 @@
 !DebugView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.102 1996-10-14 14:01:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.103 1996-10-18 12:37:33 cg Exp $'
 ! !