--- a/DebugView.st	Tue Feb 26 11:26:43 2008 +0100
+++ b/DebugView.st	Tue Feb 26 11:28:28 2008 +0100
@@ -265,7 +265,8 @@
         CachedDebugger notNil ifTrue:[
             (CachedDebugger device ~~ currentScreen 
             or:[currentScreen isNil
-            or:[currentScreen isOpen not]]) ifTrue:[
+            or:[currentScreen isOpen not
+            or:[CachedDebugger class ~~ self]]]) ifTrue:[
                 CachedDebugger := nil
             ]
         ].
@@ -6084,7 +6085,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.425 2008-02-11 14:09:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.426 2008-02-26 10:28:28 cg Exp $'
 ! !
 
 DebugView initialize!