--- a/UIObjectView.st	Fri May 30 14:25:31 2008 +0200
+++ b/UIObjectView.st	Fri May 30 14:36:10 2008 +0200
@@ -2577,7 +2577,7 @@
     |list tabs top slv hzp inset selection okButton|
 
     history isEmpty ifTrue:[
-	^ self
+        ^ self
     ].
 
     top  := StandardSystemView new label:'undo history'; extent:250@350.
@@ -2590,7 +2590,7 @@
     okButton label:'undo to end'.
     okButton action:[ top destroy ].
 
-    inset := hzp preferredExtent y.
+    inset := hzp preferredHeight.
     hzp topInset:(inset negated).
     slv   bottomInset:inset.
     slv := slv scrolledView.
@@ -2601,11 +2601,11 @@
     tabs align:#(#left #left).
 
     list := history collect:[:aTrans||e|
-	e := MultiColListEntry new.
-	e colAt:1 put:(aTrans typeAsString).
-	e colAt:2 put:(aTrans text ? '').
-	e tabulatorSpecification:tabs.
-	e
+        e := MultiColListEntry new.
+        e colAt:1 put:(aTrans typeAsString).
+        e colAt:2 put:(aTrans text ? '').
+        e tabulatorSpecification:tabs.
+        e
     ].
 
     slv list:list.
@@ -2613,7 +2613,7 @@
     top openModal.
 
     selection notNil ifTrue:[
-	self undoLast:(history size - selection + 1).
+        self undoLast:(history size - selection + 1).
     ]
 ! !