diff --git a/I1620/i1620_cd.c b/I1620/i1620_cd.c
index 98b2e08c..cf89a42c 100644
--- a/I1620/i1620_cd.c
+++ b/I1620/i1620_cd.c
@@ -534,7 +534,7 @@ fputs (cdp_buf, cdp_unit.fileref);                      /* write card */
 cdp_unit.pos = ftell (cdp_unit.fileref);                /* count char */
 if (ferror (cdp_unit.fileref)) {                        /* error? */
     ind[IN_WRCHK] = 1;
-    sim_perror ("CDR I/O error");
+    sim_perror ("CDP I/O error");
     clearerr (cdp_unit.fileref);
     return SCPE_IOERR;
     }