Index: trunk/ppTranslate/src/ppMopsWrite.c
===================================================================
--- trunk/ppTranslate/src/ppMopsWrite.c	(revision 37375)
+++ trunk/ppTranslate/src/ppMopsWrite.c	(revision 37430)
@@ -89,5 +89,5 @@
     psWarning("no inputs with surviving detections. output header will be incomplete");
   }
-  psMetadataAddStr(header, PS_LIST_TAIL, "OBSCODE", 0, "IAU Observatory code", OBSERVATORY_CODE);
+  psMetadataAddStr(header, PS_LIST_TAIL, "OBSCODE", 0, "IAU Observatory code", args->obscode);
   psMetadataAddF32(header, PS_LIST_TAIL, "MAGZP", 0, "Magnitude zero point", args->zp);
   //MOPS want the name ZEROPOINT for MAGZP