--- a/Object.st	Mon Sep 23 15:18:15 1996 +0200
+++ b/Object.st	Mon Sep 23 15:25:39 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 23-sep-1996 at 14:00:08'                   !
+
 nil subclass:#Object
 	instanceVariableNames:''
 	classVariableNames:'ErrorSignal HaltSignal MessageNotUnderstoodSignal
@@ -2029,30 +2031,38 @@
 
     |context|
 
+    "DebugView cannot run without system processes"
+
+    Processor activeProcessIsSystemProcess ifTrue:[
+        ^ MiniDebugger
+    ].
+
     context := thisContext.
     context := context sender.
     [context notNil] whileTrue:[
-	((context receiver class == Debugger) 
-	 and:[context selector == aSelector]) ifTrue:[
-	    "we are already in some Debugger"
-	    (Debugger == MiniDebugger) ifTrue:[
-		"we are already in the MiniDebugger"
-		ErrorRecursion ifFalse:[
-		    Smalltalk fatalAbort:'recursive error ...'
-		]
-	    ].
-	    MiniDebugger isNil ifTrue:[
-		Smalltalk fatalAbort:'no debugger'
-	    ].
-
-	    "ok, an error occured while in the graphical debugger;
-	     lets try MiniDebugger"
-	    ^ MiniDebugger
-	].
-	context := context sender
+        ((context receiver class == Debugger) 
+         and:[context selector == aSelector]) ifTrue:[
+            "we are already in some Debugger"
+            (Debugger == MiniDebugger) ifTrue:[
+                "we are already in the MiniDebugger"
+                ErrorRecursion ifFalse:[
+                    Smalltalk fatalAbort:'recursive error ...'
+                ]
+            ].
+            MiniDebugger isNil ifTrue:[
+                Smalltalk fatalAbort:'no debugger'
+            ].
+
+            "ok, an error occured while in the graphical debugger;
+             lets try MiniDebugger"
+            ^ MiniDebugger
+        ].
+        context := context sender
     ].
     "not within Debugger - no problem"
     ^ Debugger
+
+    "Modified: 23.9.1996 / 12:14:52 / stefan"
 !
 
 doesNotUnderstand:aMessage
@@ -5258,6 +5268,6 @@
 !Object  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.132 1996-09-23 10:45:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.133 1996-09-23 13:25:39 stefan Exp $'
 ! !
 Object initialize!