diff --git a/src/ace.F90 b/src/ace.F90
index d7edf05be6..a0e6a6af0c 100644
--- a/src/ace.F90
+++ b/src/ace.F90
@@ -73,12 +73,15 @@ contains
              name  = xs_listings(index_list) % name
              alias = xs_listings(index_list) % alias
 
+             ! Keep track of what listing is associated with this nuclide
+             nuc => nuclides(index_nuclide)
+             nuc % listing = index_list
+
              ! Read the ACE table into the appropriate entry on the nuclides
              ! array
              call read_ace_table(index_nuclide, index_list)
 
              ! Print out information on table to cross_sections.out file
-             nuc => nuclides(index_nuclide)
              if (master) call print_nuclide(nuc, unit=UNIT_XS)
 
              call dict_add_key(already_read, name, 0)
diff --git a/src/ace_header.F90 b/src/ace_header.F90
index 5c3344c55b..ccc438fca0 100644
--- a/src/ace_header.F90
+++ b/src/ace_header.F90
@@ -73,10 +73,11 @@ module ace_header
 !===============================================================================
 
   type Nuclide
-     character(10) :: name ! name of nuclide, e.g. 92235.03c
-     integer       :: zaid ! Z and A identifier, e.g. 92235
-     real(8)       :: awr  ! weight of nucleus in neutron masses
-     real(8)       :: kT   ! temperature in MeV (k*T)
+     character(10) :: name    ! name of nuclide, e.g. 92235.03c
+     integer       :: zaid    ! Z and A identifier, e.g. 92235
+     integer       :: listing ! index in xs_listings
+     real(8)       :: awr     ! weight of nucleus in neutron masses
+     real(8)       :: kT      ! temperature in MeV (k*T)
 
      ! Energy grid information
      integer :: n_grid                     ! # of nuclide grid points