diff --git a/src/endf_header.F90 b/src/endf_header.F90
index 337045c2b4..a2e8b10de4 100644
--- a/src/endf_header.F90
+++ b/src/endf_header.F90
@@ -16,7 +16,7 @@ module endf_header
     
     ! Type-Bound procedures
     contains
-      procedure :: clear => Tab1_clear ! deallocates a Tab1 Object.
+      procedure :: clear => tab1_clear ! deallocates a Tab1 Object.
   end type Tab1
   
   contains