# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1459712623 -7200
# Node ID 1b719dfc281382cdd4cb9840e3cdb26ae437cf55
# Parent  37d84328738ad15a31a9af27f9f3b20cd9d882f4
#DOCUMENTATION by cg
class: DebugView
changed: #newDebugger

diff -r 37d84328738a -r 1b719dfc2813 DebugView.st
--- a/DebugView.st	Sun Apr 03 21:41:50 2016 +0200
+++ b/DebugView.st	Sun Apr 03 21:43:43 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -180,8 +182,10 @@
     CachedExclusive := nil.
     OpenDebuggers := nil.
 
+    "/ only assign to the global debugger, if it has not been redefined
+    "/ to another class.
     (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
-	Debugger := self
+        Smalltalk at:#Debugger put:self
     ].
 
     "