--- a/TIFFRdr.st	Mon Oct 23 18:00:19 1995 +0100
+++ b/TIFFRdr.st	Wed Oct 25 11:16:32 1995 +0100
@@ -41,7 +41,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.23 1995-09-17 18:00:56 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.24 1995-10-25 10:16:18 cg Exp $
 "
 !
 
@@ -1403,7 +1403,9 @@
 	].
 	'TIFFReader: ignoring alpha plane' errorPrintNL.
 	nPlanes := 1.
-	bitsPerPixel := bitsPerSample at:1
+	bitsPerPixel := bitsPerSample at:1.
+	bitsPerSample := Array with:bitsPerPixel.
+	samplesPerPixel := 1.
     ] ifFalse:[
 	(nPlanes == 3) ifTrue:[
 	    (planarConfiguration ~~ 1) ifTrue:[
@@ -1420,7 +1422,7 @@
 		self error:'format not supported'.
 		^ nil
 	    ].
-	    bitsPerPixel := bitsPerSample at:1
+	    bitsPerPixel := bitsPerSample at:1.
 	]
     ].