Index: trunk/psastro/src/psastroWCS.c
===================================================================
--- trunk/psastro/src/psastroWCS.c	(revision 10613)
+++ trunk/psastro/src/psastroWCS.c	(revision 11702)
@@ -142,6 +142,6 @@
 	    fpa->toSky = toSky;
 	} else {
-	    if (fpa->toTPA == NULL) psAbort ("wcs", "projection defined, tangent-plane not defined");
-	    if (fpa->fromTPA == NULL) psAbort ("wcs", "projection defined, tangent-plane not defined");
+	    if (fpa->toTPA == NULL) psAbort("projection defined, tangent-plane not defined");
+	    if (fpa->fromTPA == NULL) psAbort("projection defined, tangent-plane not defined");
 
 	    // adjust for common toSky for mosaic:
@@ -212,5 +212,5 @@
 
     // techinically, we can have a plate scale here (toTPA:dx,dy != 1)
-    if (!psPlaneDistortIsIdentity (toTPA)) psAbort ("psastro", "invalid TPA transformation");
+    if (!psPlaneDistortIsIdentity (toTPA)) psAbort("invalid TPA transformation");
     
     // XXX require toFPA->x->nX == toFPA->x->nY
@@ -395,7 +395,7 @@
     psMetadataAddF32 (header, PS_LIST_TAIL, "CDELT2", 	PS_META_REPLACE, "", 1.0);
 
-    if (toFPA->x->nX != toFPA->x->nY) psAbort ("psastro", "mis-matched tangent plane orders (1)");
-    if (toFPA->x->nX != toFPA->y->nX) psAbort ("psastro", "mis-matched tangent plane orders (2)");
-    if (toFPA->x->nX != toFPA->y->nY) psAbort ("psastro", "mis-matched tangent plane orders (3)");
+    if (toFPA->x->nX != toFPA->x->nY) psAbort("mis-matched tangent plane orders (1)");
+    if (toFPA->x->nX != toFPA->y->nX) psAbort("mis-matched tangent plane orders (2)");
+    if (toFPA->x->nX != toFPA->y->nY) psAbort("mis-matched tangent plane orders (3)");
 
     switch (toFPA->x->nX) {
@@ -428,5 +428,5 @@
 
       case 0:
-	psAbort ("psastro", "invalid tangent plane order");
+	psAbort("invalid tangent plane order");
     }
     return true;
@@ -450,7 +450,7 @@
     psMetadataAddF32 (header, PS_LIST_TAIL, "CDELT2", 	PS_META_REPLACE, "", toSky->Ys*DEG_RAD*plateScale);
 
-    if (toTP->x->nX != toTP->x->nY) psAbort ("psastro", "mis-matched tangent plane orders (1)");
-    if (toTP->x->nX != toTP->y->nX) psAbort ("psastro", "mis-matched tangent plane orders (2)");
-    if (toTP->x->nX != toTP->y->nY) psAbort ("psastro", "mis-matched tangent plane orders (3)");
+    if (toTP->x->nX != toTP->x->nY) psAbort("mis-matched tangent plane orders (1)");
+    if (toTP->x->nX != toTP->y->nX) psAbort("mis-matched tangent plane orders (2)");
+    if (toTP->x->nX != toTP->y->nY) psAbort("mis-matched tangent plane orders (3)");
 
     switch (toTP->x->nX) {
@@ -483,5 +483,5 @@
 
       case 0:
-	psAbort ("psastro", "invalid tangent plane order");
+	psAbort("invalid tangent plane order");
     }
     return header;
@@ -493,6 +493,6 @@
     psPlaneDistort *distort;
 
-    if (order < 1) psAbort ("psastro", "invalid order");
-    if (order > 3) psAbort ("psastro", "invalid order");
+    if (order < 1) psAbort("invalid order");
+    if (order > 3) psAbort("invalid order");
     
     // all coeffs and masks initially set to 0