--- a/DebugView.st	Tue Sep 10 16:01:07 2013 +0200
+++ b/DebugView.st	Tue Sep 10 20:29:57 2013 +0200
@@ -1853,10 +1853,10 @@
             windowGroup notNil ifTrue:[
                 windowGroup setProcess:nil.
             ].
-            NumberOfDebuggers := NumberOfDebuggers - 1.
+            NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
             self destroy
         ].
-        NumberOfDebuggers := NumberOfDebuggers - 1.
+        NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
     ].
     "/ here after my own control loop is finished.
 
@@ -9013,15 +9013,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.635 2013-09-09 15:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.635 2013-09-09 15:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.635 2013-09-09 15:08:32 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
 ! !