--- a/BrowserView.st	Wed Apr 23 13:30:25 1997 +0200
+++ b/BrowserView.st	Thu Apr 24 17:49:09 1997 +0200
@@ -7901,8 +7901,7 @@
 !
 
 updateClassMethodListWithScroll:scroll keepSelection:keep
-    |newList selection|
-
+    |newList selection s|
 
     newList := OrderedCollection new.
     selection := classMethodListView selection.
@@ -7915,7 +7914,11 @@
         sel := self selectorFromClassMethodString:entry string.
         (cls isNil or:[sel isNil]) ifTrue:[
             "/ method is gone ?
-            newList add:(entry string , ' ???')
+            s := entry string.
+            (s endsWith:'???') ifFalse:[
+                s := s , ' ???'.
+            ].
+            newList add:s
         ] ifFalse:[
             mthd := cls compiledMethodAt:(sel asSymbol).
             mthd isNil ifTrue:[
@@ -7950,7 +7953,7 @@
 
     "Modified: 18.12.1995 / 22:54:04 / stefan"
     "Created: 3.3.1997 / 15:10:15 / cg"
-    "Modified: 11.4.1997 / 17:16:51 / cg"
+    "Modified: 24.4.1997 / 17:14:23 / cg"
 !
 
 updateMethodList
@@ -10052,6 +10055,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.295 1997-04-22 17:33:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.296 1997-04-24 15:49:09 cg Exp $'
 ! !
 BrowserView initialize!