--- a/BrowserView.st	Sun Oct 29 20:28:52 1995 +0100
+++ b/BrowserView.st	Tue Oct 31 01:29:54 1995 +0100
@@ -29,7 +29,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.32 1995-10-29 19:28:04 cg Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.33 1995-10-31 00:29:54 stefan Exp $
 "!
 
 documentation
@@ -2618,7 +2618,8 @@
     actualClass := acceptClass := aClass.
     self updateMethodCategoryList.
     self updateMethodList.
-    self updateCodeView
+    self updateCodeView.
+    self classDefinition.
 !
 
 setupForClassHierarchy:aClass
@@ -2790,7 +2791,7 @@
     actualClass := acceptClass := aClass.
     currentMethodCategory := aMethodCategory.
     self updateMethodList.
-    self updateCodeView
+    self updateCodeView.
 !
 
 setupForFullClassProtocol:aClass