diff --git a/io/cdn_io.F90 b/io/cdn_io.F90
index 50047c24fc4cd41f3ac53e445c2301344d909c21..44d2f874d80f73743b7e24c23d652f7084bde94c 100644
--- a/io/cdn_io.F90
+++ b/io/cdn_io.F90
@@ -230,7 +230,14 @@ MODULE m_cdn_io
                            1,-1.0,fermiEnergy,l_qfix,den)
             END IF
          ELSE
-            WRITE(*,*) TRIM(ADJUSTL(filename))//' file or relevant density entry not found.'
+            INQUIRE(FILE=TRIM(ADJUSTL(filename)),EXIST=l_exist)
+            IF(l_exist) THEN
+               WRITE(*,*) 'densityType is ', densityType
+               WRITE(*,*) 'Relevant density entry is '//TRIM(ADJUSTL(archiveName))//'.'
+               WRITE(*,*) 'Entry not found in '//TRIM(ADJUSTL(filename))//'.'
+            ELSE
+               WRITE(*,*) TRIM(ADJUSTL(filename))//' file not found.'
+            END IF
             WRITE(*,*) 'Falling back to stream access.'
             mode = CDN_STREAM_MODE
          END IF
diff --git a/main/cdngen.F90 b/main/cdngen.F90
index bf6bc10c06b1737d8ef8c3831b8825d0ec3fb940..52daf21ee667cb5d3f957cdc3d7f73fdcf7202ec 100644
--- a/main/cdngen.F90
+++ b/main/cdngen.F90
@@ -120,7 +120,7 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
 
    IF (sliceplot%slice) THEN
       IF (mpi%irank.EQ.0) THEN
-         CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,archiveType,CDN_INPUT_DEN_const,&
+         CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,CDN_ARCHIVE_TYPE_CDN_const,CDN_INPUT_DEN_const,&
                            0,-1.0,0.0,.FALSE.,outDen,'cdn_slice')
       END IF
       CALL juDFT_end("slice OK",mpi%irank)