--- a/src/vmsfns.c	Mon Aug 13 09:00:04 2007 +0200
+++ b/src/vmsfns.c	Mon Aug 13 09:02:59 2007 +0200
@@ -356,7 +356,7 @@
 }
 
 DEFUN ("send-command-to-subprocess", Fsend_command_to_subprocess, 2, 2,
-       "sSend command to subprocess: \nsSend subprocess %s command: ", /*
+  "sSend command to subprocess: \nsSend subprocess %s command: ", /*
 Send to VMS subprocess named NAME the string COMMAND.
 */
        (name, command))
@@ -368,7 +368,8 @@
   for (ptr = process_list; ptr; ptr = ptr->next)
     if (XINT (name) == ptr->name)
       {
-	write_to_mbx (ptr, XSTRING_DATA (command), XSTRING_LENGTH (command));
+	write_to_mbx (ptr, string_data (XSTRING (command)),
+		      string_length (XSTRING (command)));
 	return Qt;
       }
   return Qnil;
@@ -582,8 +583,8 @@
 
   CHECK_STRING (priv);
   priv = Fupcase (priv, Fcurrent_buffer ());
-  prvname = XSTRING_DATA   (priv);
-  prvlen  = XSTRING_LENGTH (priv);
+  prvname = string_data (XSTRING (priv));
+  prvlen = string_length (XSTRING (priv));
   found = 0;
   prvmask[0] = 0;
   prvmask[1] = 0;
@@ -602,7 +603,7 @@
 	}
     }
   if (! found)
-    error ("Unknown privilege name %s", XSTRING_DATA (priv));
+    error ("Unknown privilege name %s", string_data (XSTRING (priv)));
   if (NILP (getprv))
     {
       if (sys$setprv (NILP (value) ? 0 : 1, prvmask, 0, 0) == SS$_NORMAL)
@@ -653,8 +654,8 @@
 
   CHECK_STRING (type);
   type = Fupcase (type, Fcurrent_buffer ());
-  typename = XSTRING_DATA   (type);
-  typelen  = XSTRING_LENGTH (type);
+  typename = string_data (XSTRING (type));
+  typelen = string_length (XSTRING (type));
   for (i = 0; i < sizeof (vms_object) / sizeof (vms_object[0]); i++)
     {
       ptr = &vms_object[i];
@@ -677,7 +678,7 @@
   int prcnam[2];
 
   if (NILP (pid)
-      || STRINGP (pid) && XSTRING_LENGTH (pid) == 0
+      || STRINGP (pid) && string_length (XSTRING (pid)) == 0
       || ZEROP (pid))
     {
       code = owner ? JPI$_OWNER : JPI$_PID;
@@ -692,8 +693,8 @@
     return (XINT (pid));
   CHECK_STRING (pid);
   pid = Fupcase (pid, Fcurrent_buffer ());
-  size = XSTRING_LENGTH (pid);
-  p = XSTRING_DATA (pid);
+  size = string_length (XSTRING (pid));
+  p = string_data (XSTRING (pid));
   numeric = 1;
   id = 0;
   for (i = 0; i < size; i++, p++)
@@ -712,8 +713,8 @@
       }
   if (numeric)
     return (id);
-  prcnam[0] = XSTRING_LENGTH (pid);
-  prcnam[1] = XSTRING_DATA   (pid);
+  prcnam[0] = string_length (XSTRING (pid));
+  prcnam[1] = string_data (XSTRING (pid));
   status = lib$getjpi (&JPI$_PID, 0, prcnam, &id);
   if (! (status & 1))
     error ("Cannot find process id: %s",
@@ -853,8 +854,8 @@
   short length, level;
 
   CHECK_STRING (arg1);
-  symdsc[0] = XSTRING_LENGTH (arg1);
-  symdsc[1] = XSTRING_DATA   (arg1);
+  symdsc[0] = string_length (XSTRING (arg1));
+  symdsc[1] = string_data (XSTRING (arg1));
   status = lib$sys_trnlog (symdsc, &length, strdsc);
   if (! (status & 1))
     error ("Unable to translate logical name: %s", vmserrstr (status));
@@ -873,8 +874,8 @@
   short length, level;
 
   CHECK_STRING (arg1);
-  symdsc[0] = XSTRING_LENGTH (arg1);
-  symdsc[1] = XSTRING_DATA   (arg1);
+  symdsc[0] = string_length (XSTRING (arg1));
+  symdsc[1] = string_data (XSTRING (arg1));
   status = lib$get_symbol (symdsc, strdsc, &length, &level);
   if (! (status & 1)) {
     if (status == LIB$_NOSUCHSYM)