--- a/ListView.st	Thu Nov 21 15:19:02 1996 +0100
+++ b/ListView.st	Thu Nov 21 17:44:41 1996 +0100
@@ -1252,24 +1252,27 @@
 
     |listSize newOrigin|
 
-    shown ifFalse:[^ self].
-    list isNil ifTrue:[^ self].
-
-    listSize := self numberOfLines.
-    "
-     if we are beyond the end, scroll up a bit
-    "
-    ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[
-        newOrigin := listSize - nFullLinesShown + 1.
-        newOrigin < 1 ifTrue:[
-            newOrigin := 1
+    shown ifTrue:[
+        list notNil ifTrue:[
+
+            listSize := self numberOfLines.
+            "
+             if we are beyond the end, scroll up a bit
+            "
+            ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[
+                newOrigin := listSize - nFullLinesShown + 1.
+                newOrigin < 1 ifTrue:[
+                    newOrigin := 1
+                ].
+                self scrollToLine: newOrigin.
+            ].
         ].
-        self scrollToLine: newOrigin.
     ].
 
     ^ super contentsChanged
 
     "Modified: 18.11.1996 / 19:50:07 / stefan"
+    "Modified: 21.11.1996 / 17:43:55 / cg"
 !
 
 keyPress:key x:x y:y
@@ -3502,5 +3505,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.107 1996-11-18 19:58:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.108 1996-11-21 16:44:41 cg Exp $'
 ! !