diff --git a/lib/timer_impl.f90 b/lib/timer_impl.f90
index 221db9e0a..4e35162cb 100644
--- a/lib/timer_impl.f90
+++ b/lib/timer_impl.f90
@@ -6,7 +6,6 @@ module timer_impl
 
   public :: init_timer, fini_timer
   integer, public :: limtrace=0
-!  integer, public :: limtrace=10000000
 
   private
 
@@ -147,11 +146,8 @@ contains
     endif
 
     ntrace=ntrace+1
-    tname='TopLevel'
-    if(nparent(n).ge.1 .and. nparent(n).le.MAXCALL) tname=name(nparent(n))
-    if(ntrace.lt.limtrace) write(lu,1020) ntrace,dname,k,level,nparent(n),tname
-1020 format(i8,': ',a8,3i5,2x,a8)
-    flush(lu)
+    if(ntrace.lt.limtrace) write(lu,1020) ntrace,tname,k,level,nparent(n)
+1020 format(i8,': ',a8,3i5)
     go to 998
 
     ! Write out the timer statistics