--- ray/src/common/words.c	1991/07/23 11:36:42	1.2
+++ ray/src/common/words.c	1996/01/10 21:04:21	2.2
@@ -1,4 +1,4 @@
-/* Copyright (c) 1991 Regents of the University of California */
+/* Copyright (c) 1996 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -44,6 +44,8 @@ register char  *s;
 		s++;
 	while (*s && !isspace(*s))
 		s++;
+	while (isspace(*s))
+		s++;
 	return(s);
 }
 
@@ -69,13 +71,13 @@ char *
 fskip(s)			/* skip float in string */
 register char  *s;
 {
-	register char  *cp = s;
+	register char  *cp;
 
-	while (isspace(*cp))
-		cp++;
-	if (*cp == '-' || *cp == '+')
-		cp++;
-	s = cp;
+	while (isspace(*s))
+		s++;
+	if (*s == '-' || *s == '+')
+		s++;
+	cp = s;
 	while (isdigit(*cp))
 		cp++;
 	if (*cp == '.') {
@@ -107,7 +109,7 @@ char  *s, *ds;
 	register char  *cp;
 
 	cp = iskip(s);
-	return(cp != NULL && strchr(*cp, ds) != NULL);
+	return(cp != NULL && strchr(ds, *cp) != NULL);
 }
 
 
@@ -127,5 +129,5 @@ char  *s, *ds;
 	register char  *cp;
 
 	cp = fskip(s);
-	return(cp != NULL && strchr(*cp, ds) != NULL);
+	return(cp != NULL && strchr(ds, *cp) != NULL);
 }