Index: /ccr/trunk/p/C0CRIMA.m
===================================================================
--- /ccr/trunk/p/C0CRIMA.m	(revision 664)
+++ /ccr/trunk/p/C0CRIMA.m	(revision 665)
@@ -464,8 +464,10 @@
     N ZZGN ; NAME FOR SECTION VARIABLES
     S ZZGN=$NA(@ZVBASE@(DFN,ZWHICH)) ; BASE OF VARS FOR SECTION
-    I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
+    ;I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
+    I $O(@ZZGN@(""),-1)=""  D  ;
     E  D  ; VARS EXIST
-    . N ZGVI
-    . F ZGVI=1:1:@ZZGN@(0) D  ; FOR EACH MULTIPLE IN SECTION
+    . N ZGVI,ZGVN
+    . S ZGVN=$O(@ZZGN@(""),-1) ;COUNT OF VARS
+    . F ZGVI=1:1:ZGVN D  ; FOR EACH MULTIPLE IN SECTION
     . . K ZZGA N ZZGA ; TEMP ARRAY FOR SECTION VARS
     . . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE