--- a/DebugView.st	Tue Feb 03 19:03:37 1998 +0100
+++ b/DebugView.st	Tue Feb 03 20:24:25 1998 +0100
@@ -1984,6 +1984,8 @@
 browse
     |mthd who sel cls|
 
+    selectedContext isNil ifTrue:[^ self].
+
     mthd := selectedContext method.
     mthd notNil ifTrue:[
         who := selectedContext method who.
@@ -1999,35 +2001,41 @@
 
     cls browserClass openInClass:cls selector:sel.
 
-    "Created: 22.11.1995 / 21:27:01 / cg"
-    "Modified: 1.11.1996 / 16:22:13 / cg"
+    "Created: / 22.11.1995 / 21:27:01 / cg"
+    "Modified: / 3.2.1998 / 19:46:40 / cg"
 !
 
 browseClass
     |cls|
 
+    selectedContext isNil ifTrue:[^ self].
+
     cls := selectedContext method containingClass.
     cls browserClass browseClass:cls
 
-    "Modified: 1.11.1996 / 16:34:19 / cg"
+    "Modified: / 3.2.1998 / 20:23:36 / cg"
 !
 
 browseClassHierarchy
     |cls|
 
+    selectedContext isNil ifTrue:[^ self].
+
     cls := selectedContext method containingClass.
     cls browserClass browseClassHierarchy:cls.
 
-    "Modified: 1.11.1996 / 16:34:31 / cg"
+    "Modified: / 3.2.1998 / 20:23:40 / cg"
 !
 
 browseFullClassProtocol
     |cls|
 
+    selectedContext isNil ifTrue:[^ self].
+
     cls := selectedContext method containingClass.
     cls browserClass browseFullClassProtocol:cls.
 
-    "Modified: 1.11.1996 / 16:34:41 / cg"
+    "Modified: / 3.2.1998 / 20:23:44 / cg"
 !
 
 copyWalkbackText
@@ -3767,6 +3775,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.187 1998-01-19 19:41:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.188 1998-02-03 19:24:25 cg Exp $'
 ! !
 DebugView initialize!