Index: trunk/psastro/src/Makefile.am
===================================================================
--- trunk/psastro/src/Makefile.am	(revision 9732)
+++ trunk/psastro/src/Makefile.am	(revision 10292)
@@ -35,5 +35,6 @@
 psastroMosaicRescaleChips.c \
 psastroWCS.c	            \
-psastroErrorCodes.c
+psastroErrorCodes.c         \
+psastroVersion.c
 
 include_HEADERS = \
Index: trunk/psastro/src/psastro.h
===================================================================
--- trunk/psastro/src/psastro.h	(revision 9732)
+++ trunk/psastro/src/psastro.h	(revision 10292)
@@ -22,5 +22,5 @@
 
 // this structure represents a fit to the logN / logS curve for a set of stars
-// logN = offset + slope * logS 
+// logN = offset + slope * logS
 typedef struct {
   double mMin;
@@ -68,2 +68,6 @@
 bool pmAstromWriteBilevelChip (psPlaneTransform *toFPA, psMetadata *header, double plateScale);
 psMetadata *pmAstromWriteBilevelMosaic (psProjection *toSky, psPlaneDistort *toTP, double plateScale);
+
+// Return version strings.
+psString psastroVersion(void);
+psString psastroVersionLong(void);
Index: trunk/psastro/src/psastroVersion.c
===================================================================
--- trunk/psastro/src/psastroVersion.c	(revision 10292)
+++ trunk/psastro/src/psastroVersion.c	(revision 10292)
@@ -0,0 +1,27 @@
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <pslib.h>
+#include <psmodules.h>
+#include "psastro.h"
+
+static const char *cvsTag = "$Name: not supported by cvs2svn $";// CVS tag name
+
+psString psastroVersion(void)
+{
+    psString version = NULL;            // Version, to return
+    psStringAppend(&version, "%s-%s",PACKAGE_NAME,PACKAGE_VERSION);
+    return version;
+}
+
+psString psastroVersionLong(void)
+{
+    psString version = psastroVersion(); // Version, to return
+    psString tag = psStringStripCVS(cvsTag, "Name"); // CVS tag
+    psStringAppend(&version, " (cvs tag %s) %s, %s", tag, __DATE__, __TIME__);
+    psFree(tag);
+    return version;
+}
+