--- a/Tools__TextDiffTool.st	Fri Mar 29 00:29:00 2013 +0100
+++ b/Tools__TextDiffTool.st	Fri Mar 29 08:27:32 2013 +0100
@@ -761,7 +761,7 @@
 !
 
 showDiffHolder
-    "return/create the 'showDiffHolder' value holder (automatically generated)"
+    "this holder controls if one or two code-text views are show in the lower area"
 
     showDiffHolder isNil ifTrue:[
         showDiffHolder := ValueHolder with: true.
@@ -773,7 +773,8 @@
 !
 
 showDiffHolder:something
-    "set the 'showDiffHolder' value holder (automatically generated)"
+    "set the 'showDiffHolder' value holder (automatically generated).
+     this holder controls if one or two code-text views are show in the lower area"
 
     |oldValue newValue|
 
@@ -891,8 +892,10 @@
         ^ self.
     ].
     changedObject == codeAspectHolder ifTrue:[
-        (codeView notNil and:[codeView scrolledView notNil ]) ifTrue:[codeView scrolledView codeAspect: codeAspectHolder value].
-        (diffView notNil and:[diffView scrolledView notNil ]) ifTrue:[diffView scrolledView codeAspect: codeAspectHolder value].
+        |v|
+
+        (codeView notNil and:[(v := codeView scrolledView) notNil ]) ifTrue:[v codeAspect: codeAspectHolder value].
+        (diffView notNil and:[(v := diffView scrolledView) notNil ]) ifTrue:[v codeAspect: codeAspectHolder value].
         self updateViews.            
         ^ self.
     ].
@@ -1033,13 +1036,14 @@
 !TextDiffTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.8 2012-07-27 21:48:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.9 2013-03-29 07:27:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.8 2012-07-27 21:48:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.9 2013-03-29 07:27:32 cg Exp $'
 !
 
 version_SVN
     ^ '§Id§'
 ! !
+