diff --git a/LR_Modules/efermi_shift.f90 b/LR_Modules/efermi_shift.f90
index e06644407..7e7ec1fa5 100644
--- a/LR_Modules/efermi_shift.f90
+++ b/LR_Modules/efermi_shift.f90
@@ -179,7 +179,7 @@ SUBROUTINE ef_shift_wfc(npert, ldoss, drhoscf)
   !
   call start_clock ('ef_shift_wfc')
   !
-  IF (npert > 3) CALL errore("ef_shift", "npert exceeds 3", 1)
+  IF (npert > 3) CALL errore("ef_shift_wfc", "npert exceeds 3", 1)
   !
   ! Update the perturbed wavefunctions according to the Fermi energy shift
   !
@@ -229,4 +229,4 @@ END SUBROUTINE ef_shift_wfc
 !-------------------------------------------------------------------------
 !
 END MODULE efermi_shift
-!-------------------------------------------------------------------------
\ No newline at end of file
+!-------------------------------------------------------------------------