--- a/DebugView.st	Sun Aug 25 23:34:06 2013 +0200
+++ b/DebugView.st	Sun Aug 25 23:36:29 2013 +0200
@@ -4642,22 +4642,26 @@
     "select the context where the dialog was opened"
 
     contextArray keysAndValuesDo:[:i :c |
-        |nextCon dialog idx|
+        |nextCon nextRcvr dialog idx|
 
         ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
             dialog := c receiver.
             idx := i + 1.
             nextCon := contextArray at:idx.
-            [ (nextCon receiver == dialog)
-              or:[ nextCon receiver == dialog class
-              or:[ nextCon receiver == DialogBox ]]
+            [ 
+                nextRcvr := nextCon receiver.
+                (nextRcvr == dialog)
+                or:[ nextRcvr == dialog class
+                or:[ nextRcvr == DialogBox ]]
             ] whileTrue:[
                 idx := idx + 1.
                 nextCon := contextArray at:idx.
             ].
-            [ (nextCon receiver isKindOf:UserInformation)
-              or:[ nextCon receiver isBehavior
-                   and:[nextCon receiver includesBehavior:UserInformation]]
+            [ 
+                nextRcvr := nextCon receiver.
+                (nextRcvr isKindOf:UserInformation)
+                or:[ nextRcvr isBehavior
+                     and:[nextRcvr includesBehavior:UserInformation]]
             ] whileTrue:[
                 idx := idx + 1.
                 nextCon := contextArray at:idx.
@@ -8746,15 +8750,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.617 2013-08-25 21:36:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.617 2013-08-25 21:36:29 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.617 2013-08-25 21:36:29 cg Exp $'
 ! !