--- capa/capa51/pProj/capaGrammarDef.y	2000/09/14 20:25:12	1.15
+++ capa/capa51/pProj/capaGrammarDef.y	2000/09/20 17:21:01	1.16
@@ -964,8 +964,11 @@ Symbol *name,*index;int free_symbols;
   
   key = (char *)capa_malloc(idx_len+leng,1);
   sprintf(key,"%s[%s]",name->s_name,tmp);
-  
-  a_p = find_arrayid(name->s_name);   /* use the array name to search array tree */
+  a_p = (Symbol *)NULL;
+  a_p = find_arrayid(name->s_name); /* use the array name to search array tree */
+  if( a_p == NULL ) {
+    return NULL;
+  }
                                       /* did not check for error! */
   s_p = find_array_by_index(a_p,key); /* use the index portion to search along array linked list */
   capa_mfree((char *)tmp); capa_mfree((char *)key);