diff --git a/code/constitutive.f90 b/code/constitutive.f90
index 29695d993..9c8a6d8df 100644
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@@ -846,7 +846,7 @@ subroutine constitutive_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
  select case (phase_elasticity(material_phase(ipc,ip,el)))
  
    case (constitutive_hooke_label)
-       call constitutive_hooke_TstarAndItsTangent(T, dT_dFe, Fe, ipc, ip, el)
+       call constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
      
  end select