--- a/DebugView.st	Tue Apr 07 10:03:17 1998 +0200
+++ b/DebugView.st	Tue Apr 07 15:11:37 1998 +0200
@@ -1737,7 +1737,8 @@
                             ^ nil
                         ].
 
-                        where methodHome == steppedContext methodHome ifTrue:[
+                        (steppedContext notNil and:[
+                         where methodHome == steppedContext methodHome]) ifTrue:[
                             inBlock := true.
                         ].
 
@@ -1946,7 +1947,7 @@
     self enter:(thisContext sender sender) select:initiallyShown
 
     "Created: / 14.10.1996 / 12:53:39 / cg"
-    "Modified: / 30.10.1997 / 22:13:35 / cg"
+    "Modified: / 3.4.1998 / 21:09:16 / cg"
 ! !
 
 !DebugView methodsFor:'menu / button actions'!
@@ -3787,6 +3788,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.193 1998-03-07 13:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.194 1998-04-07 13:11:37 cg Exp $'
 ! !
 DebugView initialize!