fix

2012-05-05 03:37:01 +00:00 · 2012-05-05 03:37:01 +00:00 · abdb05b72d
parent 173726b1a3
commit abdb05b72d
1 changed files with 1 additions and 0 deletions
--- a/p/C0XF2N.m
+++ b/p/C0XF2N.m
@ -529,6 +529,7 @@ ADDINN(ZG,ZS,ZARY) ; ADD IF NOT NULL
 ;  FORMAT IS ZARY(PRED)=OBJ
 N ZI S ZI=""
 F  S ZI=$O(ZARY(ZI)) Q:ZI=""  D  ;
+ . ;I ZARY(ZI)="" S ZARY(ZI)="NULL"
 . I ZARY(ZI)'="" D  ;
 . . D ADD^C0XF2N(ZG,ZS,ZI,ZARY(ZI))
 . . I $D(DEBUG) W !,"ADDING",ZI," ",ZARY(ZI)