diff --git a/src/input_xml.F90 b/src/input_xml.F90
index c1e89ce6ea..b80c82157a 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -2560,7 +2560,6 @@ contains
             ! Search through nuclides
             pair_list => nuclide_dict % keys()
             do while (associated(pair_list))
-              call write_message(pair_list % key)
               if (starts_with(pair_list % key, word)) then
                 word = pair_list % key(1:150)
                 exit