--- a/ChangeSetBrowser.st	Sun Mar 31 18:03:22 2013 +0100
+++ b/ChangeSetBrowser.st	Mon Apr 01 14:07:29 2013 +0100
@@ -47,6 +47,7 @@
 "
 ! !
 
+
 !ChangeSetBrowser class methodsFor:'instance creation'!
 
 open
@@ -85,6 +86,7 @@
     "Modified: / 17-02-2011 / 10:29:50 / cg"
 ! !
 
+
 !ChangeSetBrowser class methodsFor:'defaults'!
 
 defaultLabel
@@ -93,6 +95,7 @@
     "Created: / 6.2.1998 / 13:25:47 / cg"
 ! !
 
+
 !ChangeSetBrowser class methodsFor:'menu specs'!
 
 menuSpec
@@ -544,6 +547,7 @@
       )
 ! !
 
+
 !ChangeSetBrowser methodsFor:'initialization & release'!
 
 askIfChangesAreToBeWrittenBack
@@ -623,6 +627,7 @@
     ^ "false" super showingDiffsDefault 
 ! !
 
+
 !ChangeSetBrowser methodsFor:'menu aspects'!
 
 hasNotUndoableChangeSelected
@@ -666,6 +671,7 @@
     ^ false
 ! !
 
+
 !ChangeSetBrowser methodsFor:'private'!
 
 applyChange:changeNr
@@ -851,9 +857,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 +878,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 +888,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
@@ -978,6 +984,7 @@
     "Modified: / 7.2.1998 / 19:52:44 / cg"
 ! !
 
+
 !ChangeSetBrowser methodsFor:'user actions'!
 
 doInspectChange
@@ -1032,12 +1039,14 @@
     super updateDiffViewFor:changeNr.
 ! !
 
+
 !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 $'
 ! !
+