bugfix to fits_write.pro

fits/fits_write.pro

@@ -242,6 +242,7 @@ pro fits_write,file_or_fcb,data,header_in,extname=extname,extver=extver, $
 		print,'FITS_WRITE: END missing from input header and was added'
 		header = [header,'END     ']
 		hpos2 = n_elements(header)-1
+		hpos2 = where(keywords eq 'BEGIN EX') & hpos2 = hpos2[0] ;begin ext.
 	end
 ;
 ; determine if a extension was supplied and no primary data unit (PDU)