diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index 7bd2fc64..c2a925dd 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -2400,8 +2400,7 @@ subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
          & imin,imax,jmin,jmax,info,gtl)
 
     if (info /= psb_success_) then  
-
-      info = psb_err_invalid_mat_state_
+      info = psb_err_internal_error_
     end if
 
   else 
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index fa229715..eb0a224e 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -2400,8 +2400,7 @@ subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
          & imin,imax,jmin,jmax,info,gtl)
 
     if (info /= psb_success_) then  
-
-      info = psb_err_invalid_mat_state_
+      info = psb_err_internal_error_
     end if
 
   else 
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index ce41f7c1..4a0514e7 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -2400,8 +2400,7 @@ subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
          & imin,imax,jmin,jmax,info,gtl)
 
     if (info /= psb_success_) then  
-
-      info = psb_err_invalid_mat_state_
+      info = psb_err_internal_error_
     end if
 
   else 
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index b8ec9a17..7abc354a 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -2400,8 +2400,7 @@ subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
          & imin,imax,jmin,jmax,info,gtl)
 
     if (info /= psb_success_) then  
-
-      info = psb_err_invalid_mat_state_
+      info = psb_err_internal_error_
     end if
 
   else