Index: pathname.c
===================================================================
RCS file: /cvsroot/xsrc/external/mit/xedit/dist/lisp/pathname.c,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 pathname.c
--- pathname.c	19 Jul 2015 19:37:31 -0000	1.1.1.2
+++ pathname.c	22 Oct 2019 21:24:37 -0000
@@ -1069,9 +1069,9 @@
 
     length = 0;
     if (home) {
-	length = strlen(home);
-	strncpy(data, home, length);
-	if (length && home[length - 1] != PATH_SEP)
+	length = MIN(strlen(home), sizeof(data));
+	memcpy(data, home, length);
+	if (length && home[length - 1] != PATH_SEP && length < (sizeof(data) - 1))
 	    data[length++] = PATH_SEP;
     }
     data[length] = '\0';