--- a/ChangeSetBrowser.st	Thu Dec 11 21:48:16 2014 +0100
+++ b/ChangeSetBrowser.st	Thu Dec 11 21:48:46 2014 +0100
@@ -853,32 +853,42 @@
     "read the changeSet, create a list of header-lines"
 
     self withCursor:(Cursor read) do:[
-        |tabSpec|
-
         changeSet size == 0 ifTrue:[
             changeFileName notNil ifTrue:[
                 changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false.
             ].
-        ].
-        changeSet size == 0 ifTrue:[
-            ^ nil
+            changeSet size == 0 ifTrue:[ ^ nil ].
         ].
 
-        tabSpec := TabulatorSpecification new.
-        tabSpec unit:#inch.
-        tabSpec positions:#(-1      0        5      8.5 ).
-        "                   +/-    cls>>sel  type   info"
-        tabSpec align:    #(#left  #left     #left  #left).
+"/        tabSpec := TabulatorSpecification new.
+"/        tabSpec unit:#inch.
+"/        tabSpec positions:#(-1      0        5      8.5 ).
+"/        "                   +/-    cls>>sel  type   info"
+"/        tabSpec align:    #(#left  #left     #left  #left).
 
         changeChunks := OrderedCollection new.
         changeHeaderLines := OrderedCollection new.
 
-        changeSet do:[:aChange | |entry t|
-            changeChunks add:(aChange printString).
+        changeSet do:[:aChange | 
+            |changeSource entry t changeDelta|
+
+            changeSource := aChange source "printString".
+
+            changeChunks add:changeSource.
+
+            aChange isMethodCodeChange ifTrue:[            
+                changeDelta := ChangeDeltaInformation 
+                                changeDeltaFor:changeSource 
+                                changeClass:aChange changeClass 
+                                selector:aChange selector.
+            ] ifFalse:[
+                changeDelta := ' '.
+            ].
+
             "/ changeHeaderLines add:(aChange printString)
             entry := MultiColListEntry new.
             entry tabulatorSpecification:tabSpec.
-            entry colAt:1 put:''. "/ changeDelta.
+            entry colAt:1 put:changeDelta.
             entry colAt:2 put:aChange printString.
             entry colAt:3 put:''. "/ changeType.
         
@@ -1036,10 +1046,10 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.63 2014-12-03 19:32:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.64 2014-12-11 20:48:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.63 2014-12-03 19:32:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.64 2014-12-11 20:48:46 cg Exp $'
 ! !