--- a/GIFReader.st	Thu Nov 17 15:31:40 1994 +0100
+++ b/GIFReader.st	Mon Feb 06 01:36:28 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.11 1994-11-17 14:29:27 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.12 1995-02-06 00:36:28 claus Exp $
 '!
 
 !GIFReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.11 1994-11-17 14:29:27 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.12 1995-02-06 00:36:28 claus Exp $
 "
 !
 
@@ -273,7 +273,8 @@
 	self makeGreyscale
     ].
         
-    colorMap := Array with:redMap with:greenMap with:blueMap.
+"/    colorMap := Array with:redMap with:greenMap with:blueMap.
+    colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap.
 
     "
      GIFReader fromFile:'../fileIn/bitmaps/claus.gif
@@ -284,9 +285,12 @@
 readColorMap:colorMapSize
     "get gif colormap consisting of colorMapSize entries"
 
-    redMap := Array new:colorMapSize.
-    greenMap := Array new:colorMapSize.
-    blueMap := Array new:colorMapSize.
+"/    redMap := Array new:colorMapSize.
+"/    greenMap := Array new:colorMapSize.
+"/    blueMap := Array new:colorMapSize.
+    redMap := ByteArray uninitializedNew:colorMapSize.
+    greenMap := ByteArray uninitializedNew:colorMapSize.
+    blueMap := ByteArray uninitializedNew:colorMapSize.
     1 to:colorMapSize do:[:i |
 	redMap at:i put:(inStream nextByte).
 	greenMap at:i put:(inStream nextByte).