diff --git a/opt/psb_d_rsb_mat_mod.F03 b/opt/psb_d_rsb_mat_mod.F03
index 0c8f4120..f54e7876 100644
--- a/opt/psb_d_rsb_mat_mod.F03
+++ b/opt/psb_d_rsb_mat_mod.F03
@@ -607,9 +607,11 @@ subroutine psb_d_rsb_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
   info=d_rsb_to_psb_info(rsb_get_block_sparse(a%rsbmptr,&
        & val(nzin_+1:),imin,imax,jmin_,jmax_,&
        & ia(nzin_+1:),ja(nzin_+1:),&
-       & c_null_ptr,c_null_ptr,nzrsb,c_f_index))
+       & c_null_ptr,c_null_ptr,nz,c_f_index))
     ! FIXME: unfinished; missing error handling ..
-
+  if (nz /= nzrsb) then 
+    write(0,*) 'Mismatch in output from rsb_getblk: ',nz,nzrsb
+  end if
 9999 continue
   call psb_erractionrestore(err_act)
 
diff --git a/test/newfmt/ppde.f90 b/test/newfmt/ppde.f90
index 6fd6000c..1f6902ea 100644
--- a/test/newfmt/ppde.f90
+++ b/test/newfmt/ppde.f90
@@ -146,7 +146,7 @@ program ppde
 
   call psb_barrier(ictxt)
   t1 = psb_wtime()
-  call psb_precbld(a,desc_a,prec,info,mold=aell)
+  call psb_precbld(a,desc_a,prec,info,mold=arsb)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_precbld'