--- a/Tools__ChangeList.st	Thu Feb 13 00:59:23 2014 +0100
+++ b/Tools__ChangeList.st	Thu Feb 13 12:24:32 2014 +0100
@@ -1471,18 +1471,18 @@
 !ChangeList::ListEntry methodsFor:'displaying'!
 
 displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
+    | list cx icon |
 
-    | list cx icon colW colS |
     list := self application.
     cx := x := newX.
     (list allowRemoveHolder value and:[list showRemovedHolder value]) ifTrue: [
-	(icon := self iconRemoved) notNil ifTrue:[
-	    icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
-	].
-	cx := cx + 22."experimental value - this looks good"
+        (icon := self iconRemoved) notNil ifTrue:[
+            icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
+        ].
+        cx := cx + 22."experimental value - this looks good"
     ].
     (icon := self iconDelta) notNil ifTrue:[
-	icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
+        icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
     ].
     cx := cx + 16."12 + 2px gap"
 
@@ -1543,14 +1543,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.28 2014-02-12 17:26:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.29 2014-02-13 11:24:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.28 2014-02-12 17:26:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.29 2014-02-13 11:24:32 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st,v 1.28 2014-02-12 17:26:19 vrany Exp $'
+    ^ '$Id: Tools__ChangeList.st,v 1.29 2014-02-13 11:24:32 stefan Exp $'
 ! !