--- a/BrowserView.st	Mon Dec 10 12:33:25 2007 +0100
+++ b/BrowserView.st	Mon Dec 10 17:18:08 2007 +0100
@@ -8026,7 +8026,9 @@
     actualClass := acceptClass := aClass.
     currentSelector := selector.
     currentMethod := actualClass compiledMethodAt:selector.
-    currentMethodCategory := currentMethod category.
+    currentMethod notNil ifTrue:[
+        currentMethodCategory := currentMethod category.
+    ].
     self updateCodeView
 
     "Modified: / 10.4.1998 / 12:25:55 / cg"
@@ -14504,7 +14506,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.817 2007-12-06 23:16:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.818 2007-12-10 16:18:08 cg Exp $'
 ! !
 
 BrowserView initialize!