--- a/TIFFReader.st	Tue Jun 27 04:18:10 1995 +0200
+++ b/TIFFReader.st	Tue Jun 27 04:20:19 1995 +0200
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.20 1995-06-27 02:20:19 claus Exp $
 '!
 
 !TIFFReader class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.19 1995-06-06 04:09:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.20 1995-06-27 02:20:19 claus Exp $
 "
 !
 
@@ -368,7 +368,7 @@
     n := nLongs.
 
     msb := byteOrder ~~ #lsb.
-    values := Array new:n.
+    values := Array basicNew:n.
     (n == 1) ifTrue:[
 	values at:1 put:(inStream nextLongMSB:msb).
     ] ifFalse:[
@@ -392,7 +392,7 @@
     n := nShorts.
 
     msb := (byteOrder ~~ #lsb).
-    values := Array new:n.
+    values := Array basicNew:n.
     (n <= 2) ifTrue:[
 	values at:1 put:(inStream nextUnsignedShortMSB:msb).
 	val2 := inStream nextUnsignedShortMSB:msb.
@@ -439,7 +439,7 @@
     n := nFracts.
 
     msb := byteOrder ~~ #lsb.
-    values := Array new:n.
+    values := Array basicNew:n.
     offset := inStream nextLongMSB:msb.
     oldPos := inStream position.
     inStream position:(offset + 1).
@@ -1029,9 +1029,9 @@
 	outStream nextPutBytes:nBytes from:data.
 	rowsPerStrip := height
     ] ifFalse:[
-	stripOffsets := Array new:height.
+	stripOffsets := Array basicNew:height.
 	bytesPerRow := nBytes // height.
-	stripByteCounts := Array new:height withAll:bytesPerRow.
+	stripByteCounts := Array basicNew:height withAll:bytesPerRow.
 
 	offs := 1.
 	h := height.