--- ray/src/common/wordfile.c	2016/05/13 09:12:19	2.22
+++ ray/src/common/wordfile.c	2019/12/28 18:05:14	2.24
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: wordfile.c,v 2.22 2016/05/13 09:12:19 schorsch Exp $";
+static const char	RCSid[] = "$Id: wordfile.c,v 2.24 2019/12/28 18:05:14 greg Exp $";
 #endif
 /*
  * Load whitespace separated words from a file into an array.
@@ -10,7 +10,6 @@ static const char	RCSid[] = "$Id: wordfile.c,v 2.22 20
 #include "copyright.h"
 
 #include <ctype.h>
-#include <string.h>
 
 #include "platform.h"
 #include "rtio.h"
@@ -29,7 +28,6 @@ wordfile(			/* get words from fname, put in words */
 {
 	int	wrdcnt = 0;
 	int	n = 0;
-	int dlen = 0;
 	int	fd;
 	char	buf[MAXWLEN];
 					/* load file into buffer */
@@ -41,7 +39,7 @@ wordfile(			/* get words from fname, put in words */
 		return(-1);			/* open error */
 	words[0] = NULL;
 	while (nargs > 1 && (n += read(fd, buf+n, MAXWLEN-n)) > 0) {
-		dlen = n;
+		int	dlen = n;
 		int	crem = 0;
 		if (n > MAXWLEN/2)		/* check for mid-word end */
 			while (!isspace(buf[--n])) {