diff --git a/src/tc_bi_ortho/psi_left_qmc.irp.f b/src/tc_bi_ortho/psi_left_qmc.irp.f
index 25048f82..4e3b8e86 100644
--- a/src/tc_bi_ortho/psi_left_qmc.irp.f
+++ b/src/tc_bi_ortho/psi_left_qmc.irp.f
@@ -17,6 +17,8 @@ BEGIN_PROVIDER  [ double precision, psi_bitcleft_bilinear_matrix_values, (N_det,
   implicit none
   integer :: k, l
 
+  !print *, ' providing psi_bitcleft_bilinear_matrix_values'
+
   if(N_det .eq. 1) then
 
     do l = 1, N_states
@@ -38,6 +40,8 @@ BEGIN_PROVIDER  [ double precision, psi_bitcleft_bilinear_matrix_values, (N_det,
 
   endif
 
+  !print *, ' psi_bitcleft_bilinear_matrix_values OK'
+
 END_PROVIDER
 
 ! ---