diff --git a/p/C0CRNF.m b/p/C0CRNF.m
index a901640..718d996 100644
--- a/p/C0CRNF.m
+++ b/p/C0CRNF.m
@@ -91,7 +91,7 @@ GETN(GRTN,GFILE,GREF,GNDX,GNN)	; GET BY NAME ; RETURN A FIELD VALUE MAP
  ;
  N GIEN,GF
  S GF=$$FILEREF(GFILE) ;CLOSED FILE REFERENCE FOR FILE NUMBER GFILE
- I ('$D(GNDX))!(GNDX="") S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
+ I ('$D(GNDX))!($G(GNDX)="") S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
  E  D  ; WE ARE USING AN INDEX
  . ;N ZG
  . S ZG=$Q(@GF@(GNDX,GREF)) ;ACCESS INDEX