diff --git a/src/IO.f90 b/src/IO.f90
index f434539b0..3589ebba7 100644
--- a/src/IO.f90
+++ b/src/IO.f90
@@ -22,16 +22,10 @@ module IO
                  '───────────────────'//&
                  '────────────'
 
-  ! Obsolete alias
-  interface IO_read_ASCII
-    module procedure IO_readlines
-  end interface IO_read_ASCII
-
   public :: &
     IO_init, &
     IO_read, &
     IO_readlines, &
-    IO_read_ASCII, &
     IO_open_binary, &
     IO_isBlank, &
     IO_getTag, &
diff --git a/src/marc/discretization_marc.f90 b/src/marc/discretization_marc.f90
index 397e7514c..fab090b91 100644
--- a/src/marc/discretization_marc.f90
+++ b/src/marc/discretization_marc.f90
@@ -197,7 +197,7 @@ subroutine inputRead(elem,node0_elem,connectivity_elem,microstructureAt)
   integer, dimension(:,:), allocatable :: &
     mapElemSet                                                                                      !< list of elements in elementSet
 
-  inputFile = IO_read_ASCII(trim(getSolverJobName())//trim(InputFileExtension))
+  inputFile = IO_readlines(trim(getSolverJobName())//trim(InputFileExtension))
   call inputRead_fileFormat(fileFormatVersion, &
                             inputFile)
   call inputRead_tableStyles(initialcondTableStyle,hypoelasticTableStyle, &