--- a/ListView.st	Thu Feb 08 20:23:06 1996 +0100
+++ b/ListView.st	Thu Feb 08 22:08:41 1996 +0100
@@ -2037,9 +2037,11 @@
 
     |w     "{ Class:SmallInteger }"
      h     "{ Class:SmallInteger }"
+     n     "{ Class:SmallInteger }"
      m2    "{ Class:SmallInteger }"
      count "{ Class:SmallInteger }"
      y0    "{ Class:SmallInteger }"
+     y1    "{ Class:SmallInteger }"
      nPixel sz|
 
     count := nLines.
@@ -2069,10 +2071,14 @@
 	    y0 := textStartTop - (lineSpacing//2).
 	    h := nPixel + y0.
 
+	    n := height - h + (lineSpacing//2).   
+	    y1 := h + n - 1.
+	    y1 >= (height - margin) ifTrue:[y1 := height - margin - 1].
+
 	    self catchExpose.
 	    self copyFrom:self x:margin y:h
 			     toX:margin y:y0
-			   width:w height:(height - h + (lineSpacing//2)).
+			   width:w height:(y1 - h + 1).
 
 	    firstLineShown := firstLineShown + count.
 	    viewOrigin := viewOrigin x @ (viewOrigin y + nPixel).
@@ -2791,5 +2797,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.59 1996-01-27 17:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.60 1996-02-08 21:08:41 cg Exp $'
 ! !