Index: trunk/psModules/src/objects/pmSourceIO.c
===================================================================
--- trunk/psModules/src/objects/pmSourceIO.c	(revision 7011)
+++ trunk/psModules/src/objects/pmSourceIO.c	(revision 7306)
@@ -3,6 +3,6 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2006-04-30 22:08:02 $
+ *  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-03 00:40:28 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -177,15 +177,4 @@
         outhead = psMetadataCopy (NULL, hdu->header);
 
-        // check/fix first line (must be SIMPLE = F)
-        psMetadataItem *item = psMetadataGet (outhead, PS_LIST_HEAD);
-        if (strcmp (item->name, "SIMPLE") && strcmp (item->name, "XTENSION")) {
-            psErrorStackPrint(stderr, "invalid header: first line is neither SIMPLE nor XTENSION\n");
-            exit(EXIT_FAILURE);
-        }
-        if (!strcmp (item->name, "XTENSION")) {
-            psMetadataRemoveIndex (outhead, PS_LIST_HEAD);
-        }
-        psMetadataAddBool (outhead, PS_LIST_HEAD, "SIMPLE", PS_META_REPLACE, "CMP file, not simple", false);
-
         // copy over the entries saved in the
         updates = psMetadataLookupPtr (&status, readout->analysis, "PSPHOT.HEADER");
@@ -213,5 +202,5 @@
             outhead = psMetadataCopy (NULL, phu->header);
             psMetadataAdd (outhead, PS_LIST_TAIL, "EXTEND", PS_DATA_BOOL | PS_META_REPLACE, "this file has extensions", true);
-            psFitsWriteHeaderNotImage (file->fits, outhead);
+            psFitsWriteBlank (file->fits, outhead);
             file->phu = phu->header;
             psTrace ("pmFPAfile", 5, "wrote phu %s (type: %d)\n", file->filename, file->type);
@@ -225,5 +214,5 @@
             outhead = psMetadataCopy (NULL, hdu->header);
             psMetadataAddStr (outhead, PS_LIST_TAIL, "EXTNAME", PS_META_REPLACE, "extension name", headname);
-            psFitsWriteHeaderNotImage (file->fits, outhead);
+            psFitsWriteBlank (file->fits, outhead);
             psTrace ("pmFPAfile", 5, "wrote ext head %s (type: %d)\n", file->filename, file->type);
             file->header = hdu->header;