--- a/DebugView.st	Wed Jul 24 12:01:00 2013 +0200
+++ b/DebugView.st	Wed Jul 24 12:28:52 2013 +0200
@@ -3608,10 +3608,11 @@
                                 ifTrue:[
                                     anyStepBlocks := true.
                                 ] ifFalse:[
-                                    (where methodHome receiver isBlock
+                                    (where methodHome notNil
+                                    and:[where methodHome receiver isBlock
                                     and:[(where methodHome receiver isKindOf:Block)
                                     and:[where methodHome receiver homeMethod == steppedContext method
-                                         "where methodHome receiver home == steppedContext"]])
+                                         "where methodHome receiver home == steppedContext"]]])
                                     ifTrue:[
                                         anyStepBlocks := true.
                                     ]
@@ -8562,15 +8563,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $'
 ! !