===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mg/interpreter.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- src/usr.bin/mg/interpreter.c	2021/05/07 08:29:30	1.29
+++ src/usr.bin/mg/interpreter.c	2021/05/08 09:27:35	1.30
@@ -1,4 +1,4 @@
-/*      $OpenBSD: interpreter.c,v 1.29 2021/05/07 08:29:30 lum Exp $	*/
+/*      $OpenBSD: interpreter.c,v 1.30 2021/05/08 09:27:35 lum Exp $	*/
 /*
  * This file is in the public domain.
  *
@@ -54,6 +54,7 @@
  */
 #include <sys/queue.h>
 
+#include <ctype.h>
 #include <limits.h>
 #include <regex.h>
 #include <signal.h>
@@ -226,7 +227,7 @@
 		} else if (*p != ' ' && *p != '\t') {
 			if (begp == NULL) {
 				begp = p;
-				if (*begp == '"')
+				if (*begp == '"' || isdigit(*begp))
 					return(dobeep_num("First char of "\
 					    "expression error line:", lnm));
 			}