--- a/ListModelView.st	Tue Jul 26 12:26:06 2016 +0200
+++ b/ListModelView.st	Tue Jul 26 15:46:26 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -718,7 +720,7 @@
         noRedraw := true
     ].
 
-    noRedraw ifFalse:[
+    (shown and:[noRedraw]) ifFalse:[
         cpyHg := maxHg - visY1.
 
         cpyHg > 20 ifTrue:[