--- a/SystemBrowser.st	Mon Sep 10 22:02:02 2001 +0200
+++ b/SystemBrowser.st	Tue Sep 11 12:20:29 2001 +0200
@@ -251,15 +251,16 @@
 
     aClass isBehavior ifFalse:[^ nil].
 
-    newEntry := BrowserHistoryEntry new.
-    newEntry meta:(meta := aClass isMeta).
-    meta ifTrue:[
+    (meta := aClass isMeta) ifTrue:[
         cls := aClass theNonMetaclass.
     ] ifFalse:[
         cls := aClass
     ].
-    newEntry className:cls name.
-    newEntry selector:aSelectorOrNil.
+    newEntry := BrowserHistoryEntry new.
+    newEntry 
+        className:cls name
+        meta:meta
+        selector:aSelectorOrNil.
     ^ newEntry
 
     "Modified: / 24.2.2000 / 18:03:52 / cg"
@@ -3392,6 +3393,12 @@
     className := something.
 !
 
+className:classNameArg meta:metaArg selector:selectorArg
+    className := classNameArg.
+    meta := metaArg.
+    selector := selectorArg.
+!
+
 meta
     "return the value of the instance variable 'meta' (automatically generated)"
 
@@ -3431,6 +3438,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.132 2001-09-10 09:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.133 2001-09-11 10:20:29 cg Exp $'
 ! !
 SystemBrowser initialize!