diff --git a/kernel/ContextPart.st b/kernel/ContextPart.st
index e663291..395e868 100644
--- a/kernel/ContextPart.st
+++ b/kernel/ContextPart.st
@@ -150,7 +150,7 @@ methods that can be used in inspection or debugging.'>
 	(debuggerClass isNil 
 	    or: [currentClass debuggingPriority > debuggerClass debuggingPriority]) 
 		ifTrue: [debuggerClass := currentClass].
-	ctx isNil or: [ctx isEnvironment]]
+	ctx parentContext isNil or: [ctx isEnvironment]]
 		whileFalse: [ctx := ctx parentContext].
 	^debuggerClass
     ]
diff --git a/kernel/Process.st b/kernel/Process.st
index 3f76f92..c32c4a7 100644
--- a/kernel/Process.st
+++ b/kernel/Process.st
@@ -476,5 +476,8 @@ can suspend themselves and resume themselves however they wish.'>
 	<primitive: VMpr_Process_yield>
 	
     ]
+
+    detach [
+    ]
 ]
 
diff --git a/packages/visualgst/Debugger/GtkDebugger.st b/packages/visualgst/Debugger/GtkDebugger.st
index d7af2b3..d4e4a34 100644
--- a/packages/visualgst/Debugger/GtkDebugger.st
+++ b/packages/visualgst/Debugger/GtkDebugger.st
@@ -12,12 +12,11 @@ GtkMainWindow subclass: GtkDebugger [
     GtkDebugger class >> open: aString [
 	<category: 'user interface'>
 
-        Processor activeProcess class == CallinProcess ifTrue: [
-            "The current process might be processing an event.  Gtk will
-             block inside g_main_loop_dispatch and won't deliver any
-             other events until this one is processed.  So, fork into a
-             new process and return nil without executing #ensure: blocks."
-            Processor activeProcess detach ].
+        "The current process might be processing an event.  Gtk will
+         block inside g_main_loop_dispatch and won't deliver any
+         other events until this one is processed.  So, fork into a
+         new process and return nil without executing #ensure: blocks."
+        Processor activeProcess detach.
 
 	[ :debugger |
 	    Processor activeProcess name: 'Notifier/Debugger'.