diff --git a/code/IO.f90 b/code/IO.f90
index e10633077..f2ec7df1b 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -102,7 +102,7 @@ subroutine IO_init
 
  write(6,'(/,a)') ' <<<+-  IO init  -+>>>'
  write(6,'(a)')   ' $Id$'
- write(6,'(a16,a)')   ' Current time : ',IO_timeStamp()
+ write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
 end subroutine IO_init
diff --git a/code/lattice.f90 b/code/lattice.f90
index cb77e811d..23b10aea8 100644
--- a/code/lattice.f90
+++ b/code/lattice.f90
@@ -680,7 +680,8 @@ subroutine lattice_init
    IO_open_jobFile_stat, &
    IO_countSections, &
    IO_countTagInPart, &
-   IO_error
+   IO_error, &
+   IO_timeStamp
  use material, only: &
    material_configfile, &
    material_localFileExt, &
@@ -694,8 +695,9 @@ subroutine lattice_init
  integer(pInt), parameter :: fileunit = 200_pInt
  integer(pInt) :: Nsections
 
-   write(6,'(/,a)') ' <<<+-  lattice init  -+>>>'
-   write(6,'(a)')   ' $Id$'
+ write(6,'(/,a)') ' <<<+-  lattice init  -+>>>'
+ write(6,'(a)')   ' $Id$'
+ write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
  if (.not. IO_open_jobFile_stat(fileunit,material_localFileExt)) then                               ! no local material configuration present...