--- ray/src/common/readobj.c	2003/06/30 14:59:11	2.16
+++ ray/src/common/readobj.c	2010/03/30 12:42:33	2.20
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char RCSid[] = "$Id: readobj.c,v 2.16 2003/06/30 14:59:11 schorsch Exp $";
+static const char RCSid[] = "$Id: readobj.c,v 2.20 2010/03/30 12:42:33 greg Exp $";
 #endif
 /*
  *  readobj.c - routines for reading in object descriptions.
@@ -13,8 +13,9 @@ static const char RCSid[] = "$Id: readobj.c,v 2.16 200
 #include  <string.h>
 #include  <stdio.h>
 
-#include  "standard.h"
 #include  "platform.h"
+#include  "rtprocess.h"
+#include  "standard.h"
 #include  "object.h"
 #include  "otypes.h"
 
@@ -29,7 +30,7 @@ char  *inpspec;
 {
 	OBJECT  lastobj;
 	FILE  *infp;
-	char  buf[1024];
+	char  buf[2048];
 	register int  c;
 
 	lastobj = nobjects;
@@ -87,6 +88,11 @@ FILE  *fp;
 					/* get modifier */
 	strcpy(sbuf, "EOF");
 	fgetword(sbuf, MAXSTR, fp);
+	if (strchr(sbuf, '\t')) {
+		sprintf(errmsg, "(%s): illegal tab in modifier \"%s\"",
+					name, sbuf);
+		error(USER, errmsg);
+	}
 	if (!strcmp(sbuf, VOIDID))
 		objp->omod = OVOID;
 	else if (!strcmp(sbuf, ALIASMOD))
@@ -105,6 +111,11 @@ FILE  *fp;
 					/* get identifier */
 	sbuf[0] = '\0';
 	fgetword(sbuf, MAXSTR, fp);
+	if (strchr(sbuf, '\t')) {
+		sprintf(errmsg, "(%s): illegal tab in identifier \"%s\"",
+					name, sbuf);
+		error(USER, errmsg);
+	}
 	objp->oname = savqstr(sbuf);
 					/* get arguments */
 	if (objp->otype == MOD_ALIAS) {