--- a/SunRasterReader.st	Mon Feb 06 01:36:28 1995 +0100
+++ b/SunRasterReader.st	Mon Feb 06 01:37:58 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.10 1995-02-06 00:37:51 claus Exp $
 '!
 
 !SunRasterReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.10 1995-02-06 00:37:51 claus Exp $
 "
 !
 
@@ -80,6 +80,12 @@
     "try sun bitmap image format"
     inStream text.
     inStream reset.
+
+    "must start with a comment"
+    inStream skipSeparators.
+    inStream next ~~ $/ ifTrue:[^ false].
+    inStream next ~~ $* ifTrue:[^ false].
+
     (inStream skipThroughAll: 'idth') isNil ifTrue: [
 	inStream close.
 	^ false
@@ -148,7 +154,8 @@
 	photometric := #palette.
 	samplesPerPixel := 1.
 	bitsPerSample := #(8).
-	colorMap := Array with:rMap with:gMap with:bMap.
+"/        colorMap := Array with:rMap with:gMap with:bMap.
+	colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
 	inStream close.
 	^ self
     ].