diff --git a/src/tally.F90 b/src/tally.F90
index a7a743a004..0f25b47939 100644
--- a/src/tally.F90
+++ b/src/tally.F90
@@ -1869,9 +1869,11 @@ contains
 
        ! Write header block
        if (t % label == "") then
-          call header("TALLY " // trim(to_str(t % id)), unit=UNIT_TALLY, level=3)
+          call header("TALLY " // trim(to_str(t % id)), unit=UNIT_TALLY, &
+             level=3)
        else
-          call header("TALLY " // trim(t % label), unit=UNIT_TALLY, level=3)
+          call header("TALLY " // trim(to_str(t % id)) // ": " &
+             // trim(t % label), unit=UNIT_TALLY, level=3)
        endif
        
        ! Handle surface current tallies separately
diff --git a/src/tally_header.F90 b/src/tally_header.F90
index 3d8dd4d9a5..3ab7ad203b 100644
--- a/src/tally_header.F90
+++ b/src/tally_header.F90
@@ -60,7 +60,7 @@ module tally_header
      ! Basic data
 
      integer :: id               ! user-defined identifier
-     character(len=55) :: label  ! user-defined label
+     character(len=52) :: label  ! user-defined label
      integer :: type             ! volume, surface current
      integer :: estimator        ! collision, track-length
      real(8) :: volume           ! volume of region
diff --git a/src/xml-fortran/templates/tallies_t.xml b/src/xml-fortran/templates/tallies_t.xml
index 9c4ecb665b..c0e2992914 100644
--- a/src/xml-fortran/templates/tallies_t.xml
+++ b/src/xml-fortran/templates/tallies_t.xml
@@ -24,7 +24,7 @@
 
   <typedef name="tally_xml">
     <component name="id" type="integer" />
-    <component name="label" type="word" length="55" default="''" />
+    <component name="label" type="word" length="52" default="''" />
     <component name="filters" type="filter_xml" />
     <component name="scores" type="word" length="250" default="''" />
     <component name="reactions" type="word" length="250" default="''" />