diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index a695a87c..ad93e77c 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -833,7 +833,7 @@ subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if