diff --git a/apps/ca.c b/apps/ca.c
index a37e33314efd06e9208772e9888fdac6d0f7c2c8..a4bc7bd6fe448845c047d3f6f7492a5dc33a22b0 100644
--- a/apps/ca.c
+++ b/apps/ca.c
@@ -980,7 +980,11 @@ bad:
 				goto err;
 				}
 
+#ifndef OPENSSL_SYS_VMS
 			j = BIO_snprintf(buf[0], sizeof buf[0], "%s.new", dbfile);
+#else
+			j = BIO_snprintf(buf[0], sizeof buf[0], "%s-new", dbfile);
+#endif
 			if (j < 0 || j >= sizeof buf[0])
 				{
 				BIO_printf(bio_err, "file name too long\n");
@@ -998,7 +1002,11 @@ bad:
 			
 			BIO_free(out);
 			out = NULL;
+#ifndef OPENSSL_SYS_VMS
 			j = BIO_snprintf(buf[1], sizeof buf[1], "%s.old", dbfile);
+#else
+			j = BIO_snprintf(buf[1], sizeof buf[1], "%s-old", dbfile);
+#endif
 			if (j < 0 || j >= sizeof buf[1])
 				{
 				BIO_printf(bio_err, "file name too long\n");
@@ -1586,7 +1594,11 @@ bad:
 			X509_free(revcert);
 
 			strncpy(buf[0],dbfile,BSIZE-4);
+#ifndef OPENSSL_SYS_VMS
 			strcat(buf[0],".new");
+#else
+			strcat(buf[0],"-new");
+#endif
 			if (BIO_write_filename(out,buf[0]) <= 0)
 				{
 				perror(dbfile);
@@ -1596,7 +1608,11 @@ bad:
 			j=TXT_DB_write(out,db);
 			if (j <= 0) goto err;
 			strncpy(buf[1],dbfile,BSIZE-4);
+#ifndef OPENSSL_SYS_VMS
 			strcat(buf[1],".old");
+#else
+			strcat(buf[1],"-old");
+#endif
 			if (rename(dbfile,buf[1]) < 0)
 				{
 				BIO_printf(bio_err,"unable to rename %s to %s\n", dbfile, buf[1]);