--- a/DebugView.st	Sun Oct 21 02:15:49 2012 +0200
+++ b/DebugView.st	Sun Oct 21 10:40:15 2012 +0200
@@ -6329,6 +6329,8 @@
                 (con isBlockContext
                 and:[ (h := con home) notNil
                 and:[ (self is:h inCallingChainOf:con) ]]) ifTrue:[
+                    |blocksReceiver|
+                    blocksReceiver := con receiver.
                     c := con sender.
                     [ 
                         c notNil 
@@ -6336,7 +6338,7 @@
                             sndr := c sender.
                             (sndr ~= h) 
                             and:[ 
-                                c receiver isCollection         "/ skip collection implementations
+                                blocksReceiver isCollection         "/ skip collection implementations
                                 or:[ ( #( #'handle:do:'         "/ skip exception implementations
                                           #'handleDo:' 
                                           #'answer:do:' 
@@ -6349,7 +6351,7 @@
                         c := sndr 
                     ].
                     c notNil ifTrue:[
-                        con := h "sender".
+                        con := c "sender".
                     ].
                 ].
             ].
@@ -8044,11 +8046,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.560 2012-10-18 13:36:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.561 2012-10-21 08:40:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.560 2012-10-18 13:36:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.561 2012-10-21 08:40:15 cg Exp $'
 !
 
 version_SVN