--- a/ChangeSetBrowser.st	Sun Mar 31 13:57:41 2013 +0200
+++ b/ChangeSetBrowser.st	Sun Mar 31 13:58:23 2013 +0200
@@ -851,9 +851,9 @@
 readChangesFileInBackground:dummy
     "read the changeSet, create a list of header-lines"
 
-    |tabSpec|
+    self withCursor:(Cursor read) do:[
+        |tabSpec|
 
-    self withCursor:(Cursor read) do:[
         changeSet size == 0 ifTrue:[
             changeFileName notNil ifTrue:[
                 changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false.
@@ -872,7 +872,7 @@
         changeChunks := OrderedCollection new.
         changeHeaderLines := OrderedCollection new.
 
-        changeSet do:[:aChange | |entry|
+        changeSet do:[:aChange | |entry t|
             changeChunks add:(aChange printString).
             "/ changeHeaderLines add:(aChange printString)
             entry := MultiColListEntry new.
@@ -882,8 +882,8 @@
             entry colAt:3 put:''. "/ changeType.
         
             (aChange respondsTo:#timeOfChangeIfKnown) ifTrue:[
-                aChange timeOfChangeIfKnown notNil ifTrue:[
-                    entry colAt:4 put:(aChange timeOfChangeIfKnown printString).
+                (t := aChange timeOfChangeIfKnown) notNil ifTrue:[
+                    entry colAt:4 put:(self timeStampPrintStringOf:t).
                 ]
             ].    
             changeHeaderLines add:entry
@@ -1035,9 +1035,10 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.57 2013-03-31 11:58:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.57 2013-03-31 11:58:23 cg Exp $'
 ! !
+