--- a/ChangeSetBrowser.st	Thu Nov 23 14:19:43 2000 +0100
+++ b/ChangeSetBrowser.st	Thu Nov 23 14:20:11 2000 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libtool' }"
+
 ChangesBrowser subclass:#ChangeSetBrowser
 	instanceVariableNames:'changeSet originalChangeSet'
 	classVariableNames:''
@@ -41,8 +43,14 @@
 
 !ChangeSetBrowser class methodsFor:'instance creation'!
 
+open
+    "create a changes browser on the current change set"
+
+    ^ ((self new label:'ChangeSet Browser') changeSet:ChangeSet current) open
+!
+
 openOn:aChangeSet
-    "create c changes browser on a change set"
+    "create a changes browser on a change set"
 
     ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
 ! !
@@ -109,7 +117,7 @@
     "Modified: 3.12.1995 / 18:13:06 / cg"
 ! !
 
-!ChangeSetBrowser ignoredMethodsFor:'private'!
+!ChangeSetBrowser methodsFor:'private'!
 
 applyChange:changeNr
     "fileIn a change"
@@ -157,9 +165,7 @@
 
     "Created: / 7.2.1998 / 19:32:35 / cg"
     "Modified: / 7.2.1998 / 19:35:11 / cg"
-! !
-
-!ChangeSetBrowser methodsFor:'private'!
+!
 
 changeIsFollowupMethodChange:changeNr
     ^ false
@@ -320,5 +326,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.13 1998-02-07 19:01:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.14 2000-11-23 13:20:11 cg Exp $'
 ! !