diff --git a/p/C0CRIMA.m b/p/C0CRIMA.m
index 781dde4..a0184f8 100644
--- a/p/C0CRIMA.m
+++ b/p/C0CRIMA.m
@@ -207,7 +207,7 @@ CHKSUM(CKDFN) ; DOES A CHECKSUM AND STORES IT IN MUMPS GLOBALS
  S C0CGLB=$NA(^TMP("C0CRIM","VARS")) ;CCR VARIABLE BASE
  S C0CI=""
  F  S C0CI=$O(@C0CGLB@(CKDFN,C0CI)) Q:C0CI=""  D  ;FOR EACH DOMAIN
- . ;W "DFN:",DFN," DOMAIN:",C0CI,!
+ . ;W "DFN:",CKDFN," DOMAIN:",C0CI,!
  . S C0CJ=$NA(@C0CGLB@(CKDFN,C0CI))
  . I C0CI="HEADER" D  ; HAVE TO TAKE OUT THE "DATE GENERATED"
  . . S C0CDT=@C0CGLB@(CKDFN,C0CI,1,"DATETIME")