--- a/BrowserView.st	Tue Mar 04 01:57:10 1997 +0100
+++ b/BrowserView.st	Tue Mar 04 20:11:44 1997 +0100
@@ -7599,36 +7599,40 @@
 
         cls := self classFromClassMethodString:entry string.
         sel := self selectorFromClassMethodString:entry string.
-        mthd := cls compiledMethodAt:(sel asSymbol).
-        mthd isNil ifTrue:[
-            newList add:cls name , ' ' , sel , ' ?'
+        (cls isNil or:[sel isNil]) ifTrue:[
+            "/ method is gone ?
+            newList add:(entry string , ' ???')
         ] ifFalse:[
-            s := cls name , ' ' , (mthd printStringForBrowserWithSelector:sel).
-            mthd isWrapped ifTrue:[
-                (s endsWith:' !!') ifTrue:[
-                    s := s copyWithoutLast:2
-                ].
-                (s endsWith:' !!') ifTrue:[
-                    s := s copyWithoutLast:2
+            mthd := cls compiledMethodAt:(sel asSymbol).
+            mthd isNil ifTrue:[
+                newList add:cls name , ' ' , sel , ' ???'
+            ] ifFalse:[
+                s := cls name , ' ' , (mthd printStringForBrowserWithSelector:sel).
+                mthd isWrapped ifTrue:[
+                    (s endsWith:' !!') ifTrue:[
+                        s := s copyWithoutLast:2
+                    ].
+                    (s endsWith:' !!') ifTrue:[
+                        s := s copyWithoutLast:2
+                    ].
+                    (MessageTracer isTrapped:mthd) ifTrue:[
+                        icn := self stopIcon
+                    ] ifFalse:[
+                        icn := self traceIcon
+                    ].
+                    newList add:(LabelAndIcon icon:icn string:s)
+                ] ifFalse:[
+                    newList add:s
                 ].
-                (MessageTracer isTrapped:mthd) ifTrue:[
-                    icn := self stopIcon
-                ] ifFalse:[
-                    icn := self traceIcon
-                ].
-                newList add:(LabelAndIcon icon:icn string:s)
-            ] ifFalse:[
-                newList add:s
             ].
         ].
-        classMethodListView setList:newList.
-    ].
-
+    ].
+    classMethodListView setList:newList.
     classMethodListView setSelection:selection.
 
     "Modified: 18.12.1995 / 22:54:04 / stefan"
     "Created: 3.3.1997 / 15:10:15 / cg"
-    "Modified: 3.3.1997 / 15:14:55 / cg"
+    "Modified: 4.3.1997 / 19:06:22 / cg"
 !
 
 updateMethodList
@@ -9764,6 +9768,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.276 1997-03-03 14:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.277 1997-03-04 19:11:44 cg Exp $'
 ! !
 BrowserView initialize!