--- a/ChangeSetBrowser.st	Mon Feb 14 20:10:20 2011 +0100
+++ b/ChangeSetBrowser.st	Thu Feb 17 10:30:10 2011 +0100
@@ -50,22 +50,28 @@
 !ChangeSetBrowser class methodsFor:'instance creation'!
 
 open
-    "create a changes browser on the current change set"
+    "open a changes browser on the current change set"
 
     ^ self openOn:(ChangeSet current)
 
     "
      ChangeSetBrowser open
     "
+
+    "Modified: / 17-02-2011 / 10:29:26 / cg"
 !
 
 openOn:aChangeSet
-    "create a changes browser on a change set"
+    "open a changes browser on a given change set"
 
     ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
+
+    "Modified: / 17-02-2011 / 10:29:35 / cg"
 !
 
 openOnFile:aFileName
+    "open a changes browser on a file"
+
     |changeSet|
 
     changeSet := ChangeSet fromFile:aFileName.
@@ -73,9 +79,10 @@
 
     "
      self openOnFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
-
      ChangeSet fromFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
     "
+
+    "Modified: / 17-02-2011 / 10:29:50 / cg"
 ! !
 
 !ChangeSetBrowser class methodsFor:'defaults'!
@@ -1028,9 +1035,9 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.55 2011-01-29 11:59:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.55 2011-01-29 11:59:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
 ! !