--- a/BrowserView.st	Thu Jun 19 18:31:47 1997 +0200
+++ b/BrowserView.st	Thu Jun 19 18:59:00 1997 +0200
@@ -9238,6 +9238,17 @@
     codeView acceptAction:[:theCode |
         |cat cls rslt|
 
+        fullProtocol ifTrue:[
+            cls := acceptClass 
+        ].
+        cls isNil ifTrue:[
+            cls := actualClass
+        ].
+        cls isNil ifTrue:[
+            self warning:'oops class is gone; reselect and try again'.
+            ^ self
+        ].
+
         codeView cursor:Cursor execute.
 
         (cat := currentMethodCategory) = '* all *' ifTrue:[
@@ -9247,13 +9258,6 @@
             cat := self askForMethodCategory.
         ].
         (cat notNil and:[cat notEmpty]) ifTrue:[
-            fullProtocol ifTrue:[
-                cls := acceptClass 
-            ].
-            cls isNil ifTrue:[
-                cls := actualClass
-            ].
-
             Object abortSignal catch:[
                 lockUpdates := true.
 
@@ -9280,7 +9284,7 @@
                                 forClass:actualClass)
     ].
 
-    "Modified: 16.1.1997 / 11:00:51 / cg"
+    "Modified: 19.6.1997 / 18:57:35 / cg"
 !
 
 setDoitActionForClass
@@ -10107,6 +10111,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.302 1997-06-17 11:34:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.303 1997-06-19 16:59:00 cg Exp $'
 ! !
 BrowserView initialize!