--- a/ChangeSetBrowser.st	Thu Sep 26 22:09:20 2002 +0200
+++ b/ChangeSetBrowser.st	Thu Sep 26 22:10:41 2002 +0200
@@ -46,7 +46,11 @@
 open
     "create a changes browser on the current change set"
 
-    ^ ((self new label:'ChangeSet Browser') changeSet:ChangeSet current) open
+    ^ self openOn:(ChangeSet current)
+
+    "
+     ChangeSetBrowser open
+    "
 !
 
 openOn:aChangeSet
@@ -856,5 +860,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.26 2002-09-10 12:05:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.27 2002-09-26 20:10:41 cg Exp $'
 ! !