--- a/BrowserView.st	Wed Feb 16 14:34:28 2000 +0100
+++ b/BrowserView.st	Fri Feb 18 14:39:31 2000 +0100
@@ -11577,7 +11577,9 @@
             ]
         ].
         superCls := cls superclass.
-        implClass := superCls whichClassImplements:sel.
+        superCls notNil ifTrue:[
+            implClass := superCls whichClassImplements:sel.
+        ].
         implClass notNil ifTrue:[
             "/ ok, it is redefined
             mthdThere := implClass compiledMethodAt:sel.
@@ -11597,7 +11599,7 @@
         ]        
     ].
 
-    "Modified: / 10.2.2000 / 18:28:44 / cg"
+    "Modified: / 18.2.2000 / 11:34:12 / cg"
 !
 
 checkSelectionChangeAllowed
@@ -14033,6 +14035,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.606 2000-02-16 13:34:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.607 2000-02-18 13:39:31 cg Exp $'
 ! !
 BrowserView initialize!