--- a/Image.st	Fri May 12 20:10:19 1995 +0200
+++ b/Image.st	Tue May 16 19:17:11 1995 +0200
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Image.st,v 1.30 1995-05-03 00:03:51 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.31 1995-05-16 17:13:10 claus Exp $
 '!
 
 !Image class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Image.st,v 1.30 1995-05-03 00:03:51 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.31 1995-05-16 17:13:10 claus Exp $
 "
 !
 
@@ -560,7 +560,7 @@
 	 padding. This is stupid, and may be changed in ST/X with future versions.
 	"
 	dstRowBytes := img bytesPerRow.
-	srcRowBytes := ((w * d + 31) bitShift:-5) bitShift:2.
+	srcRowBytes := ((w * d + padding - 1) bitShift:-5) bitShift:2.
 
 	newBits := ByteArray new:(dstRowBytes * h).
 	srcIndex := 1.