--- a/ViewScroller.st	Thu Jan 11 19:20:58 2007 +0100
+++ b/ViewScroller.st	Fri Jan 12 18:38:01 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 SimpleView subclass:#ViewScroller
@@ -299,7 +298,7 @@
     oldValue := keepViewsChannel value.
     keepViewsChannel removeDependent:self.
 
-    (keepViewsChannel := aHolder) ifNil:[
+    (keepViewsChannel := aHolder) isNil ifTrue:[
         keepViewsChannel := oldValue asValue.
     ].
     keepViewsChannel addDependent:self.
@@ -510,5 +509,5 @@
 !ViewScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.21 2006-05-11 17:34:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.22 2007-01-12 17:38:01 cg Exp $'
 ! !