===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/glob.c,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -p -r1.5 -r1.7
--- OpenXM_contrib2/asir2000/parse/glob.c	2000/02/08 04:47:12	1.5
+++ OpenXM_contrib2/asir2000/parse/glob.c	2000/07/13 05:09:03	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.4 2000/01/19 01:49:36 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.6 2000/06/05 03:21:58 noro Exp $ */
 #include "ca.h"
 #include "al.h"
 #include "parse.h"
@@ -673,8 +673,12 @@ char *s;
 	fprintf(stderr,"%s\n",s);
 	set_lasterror(s);
 	if ( CPVS != GPVS ) {
-		searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
-		error_snode = *snp;
+		if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf )
+			searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
+		if ( snp )
+			error_snode = *snp;
+		else
+			error_snode = 0;
 	} else
 		error_snode = 0;
 	if ( do_file ) {