--- tailor.h_orig	2012-01-01 02:53:58 -0600
+++ tailor.h	2012-08-28 13:13:27 -0500
@@ -153,21 +153,29 @@
 #if defined(VAXC) || defined(VMS)
 #  define PATH_SEP ']'
 #  define PATH_SEP2 ':'
-#  define SUFFIX_SEP ';'
+#  define VERSION_FILTER(name) trim_file_name_version(name)
 #  define NO_MULTIPLE_DOTS
 #  define NO_SIZE_CHECK
 #  define Z_SUFFIX "-gz"
-#  define RECORD_IO 1
+#  ifndef __DECC
+     /* 2012-08-28 SMS.
+      * Defining RECORD_IO cripples processing of multi-member gzip
+      * archives (quitting after the first member), and it should no
+      * longer be needed for DEC C, where "ctx=stm" is used in the
+      * open() in [.vms]vms.c:open_vms().  Assume that it still has some
+      * worth for older compilers (VAX C).
+      */
+#    define RECORD_IO 1
+#  endif /* ndef __DECC */
 #  define casemap(c) tolow(c)
 #  define OS_CODE  0x02
 #  define OPTIONS_VAR "GZIP_OPT"
-#  define STDC_HEADERS
 #  define EXPAND(argc,argv) vms_expand_args(&argc,&argv);
+#  define OPEN(name, flags, mode) open_vms (name, flags, mode)
 #  include <file.h>
 #  define unlink delete
-#  ifdef VAXC
-#    include <unixio.h>
-#  endif
+#  include <unixio.h>   /* Needed for VAX C and old DEC C. */
+#  include "vms.h"      /* VMS-specific function prototypes. */
 #endif
 
 #ifdef AMIGA
@@ -256,6 +264,10 @@
 #  endif
 #endif
 
+#ifndef VERSION_FILTER
+#  define VERSION_FILTER(name)
+#endif
+
 #ifndef MIN_PART
 #  define MIN_PART 3
    /* keep at least MIN_PART chars between dots in a file name. */