--- a/BrowserView.st	Thu Apr 02 21:43:06 1998 +0200
+++ b/BrowserView.st	Thu Apr 02 23:39:52 1998 +0200
@@ -1954,7 +1954,7 @@
 checkClassHistory
     "checks the class history on non-existing classes"
 
-    self class classHistory reverseDo:
+    ClassHistory reverseDo:
     [:histEntry|
         (Smalltalk at: (histEntry upTo: $ ) asSymbol) isNil
         ifTrue:
@@ -1971,7 +1971,7 @@
 
     self checkClassHistory.
 
-    ^ClassHistory isEmpty
+    ClassHistory isEmpty
     ifFalse: 
     [
         labels := ClassHistory collect: [:clsName| clsName upTo: $ ].
@@ -1982,7 +1982,7 @@
         selectors add: nil; add:#emptyClassHistory.
         args := ClassHistory copy.
         args add: nil; add: nil.
-        PopUpMenu 
+        ^PopUpMenu 
             labels:labels
             selectors:selectors
             args:args
@@ -1990,7 +1990,7 @@
     ]
     ifTrue: 
     [
-        PopUpMenu 
+        ^PopUpMenu 
             labels:#('empty history')
             selectors:nil
             args:nil
@@ -5667,9 +5667,10 @@
     currentNamespace := '* all *'.
 
     "inform me, when Smalltalk changes"
-    Smalltalk addDependent:self
-
-    "Modified: 31.7.1997 / 22:32:09 / cg"
+    Smalltalk addDependent:self.
+
+    "create a history"
+    self class classHistory
 !
 
 postRealize
@@ -11553,6 +11554,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.381 1998-04-02 19:43:06 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.382 1998-04-02 21:39:52 tz Exp $'
 ! !
 BrowserView initialize!