--- run.c~	Sun Aug 31 17:31:26 1997
+++ run.c	Wed Apr 29 05:09:21 1998
@@ -404,7 +404,7 @@
 			tempfree(x);
 		} else {			/* getline <file */
 			setsval(fldtab[0], buf);
-			if (isnumber(fldtab[0]->sval)) {
+			if (isnumb(fldtab[0]->sval)) {
 				fldtab[0]->fval = atof(fldtab[0]->sval);
 				fldtab[0]->tval |= NUM;
 			}
@@ -697,7 +697,7 @@
 
 	x = execute(a[0]);
 	m = getfval(x);
-	if (m == 0 && !isnumber(s = getsval(x)))	/* suspicion! */
+	if (m == 0 && !isnumb(s = getsval(x)))	/* suspicion! */
 		ERROR "illegal field $(%s), name \"%s\"", s, x->nval FATAL;
 		/* BUG: can x->nval ever be null??? */
 	tempfree(x);
@@ -1222,7 +1222,7 @@
 				sprintf(num, "%d", n);
 				temp = *patbeg;
 				*patbeg = '\0';
-				if (isnumber(s))
+				if (isnumb(s))
 					setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
 				else
 					setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
@@ -1239,7 +1239,7 @@
 		}
 		n++;
 		sprintf(num, "%d", n);
-		if (isnumber(s))
+		if (isnumb(s))
 			setsymtab(num, s, atof(s), STR|NUM, (Array *) ap->sval);
 		else
 			setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
@@ -1259,7 +1259,7 @@
 			temp = *s;
 			*s = '\0';
 			sprintf(num, "%d", n);
-			if (isnumber(t))
+			if (isnumb(t))
 				setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
 			else
 				setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
@@ -1288,7 +1288,7 @@
 			temp = *s;
 			*s = '\0';
 			sprintf(num, "%d", n);
-			if (isnumber(t))
+			if (isnumb(t))
 				setsymtab(num, t, atof(t), STR|NUM, (Array *) ap->sval);
 			else
 				setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
