diff --git a/Changelog b/Changelog
index f949f499..2540acaf 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,8 @@
 Changelog. A lot less detailed than usual, at least for past
 history. 
 
+2006/12/06: Fixed raw aggregation.
+
 2006/12/05: Taken out extra interfaces; inserted use modules with ONLY
 	    clauses where appropriate.
 
diff --git a/src/modules/psb_prec_mod.f90 b/src/modules/psb_prec_mod.f90
index f40a5f7e..593e1163 100644
--- a/src/modules/psb_prec_mod.f90
+++ b/src/modules/psb_prec_mod.f90
@@ -488,7 +488,7 @@ module psb_prec_mod
       use psb_spmat_type
       type(psb_dspmat_type), intent(in), target :: a
       type(psb_desc_type), intent(in)           :: desc_a
-      type(psb_dspmat_type), intent(out),target :: ac
+      type(psb_dspmat_type), intent(inout),target :: ac
       type(psb_desc_type), intent(inout)        :: desc_ac
       type(psb_dbaseprc_type), intent(inout), target :: p
       integer, intent(out)                      :: info
@@ -499,7 +499,7 @@ module psb_prec_mod
       use psb_spmat_type
       type(psb_zspmat_type), intent(in), target :: a
       type(psb_zbaseprc_type), intent(inout),target    :: p
-      type(psb_zspmat_type), intent(out),target :: ac
+      type(psb_zspmat_type), intent(inout),target :: ac
       type(psb_desc_type), intent(in)           :: desc_a
       type(psb_desc_type), intent(inout)        :: desc_ac
       integer, intent(out)                      :: info
diff --git a/src/serial/psb_dcsprt.f90 b/src/serial/psb_dcsprt.f90
index 10dc1598..7fa74c38 100644
--- a/src/serial/psb_dcsprt.f90
+++ b/src/serial/psb_dcsprt.f90
@@ -57,7 +57,7 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
   character(len=*), optional        :: head
   integer, intent(in), optional     :: ivr(:), ivc(:)
 
-  character(len=*), parameter       :: frmtr='(2(i6,1x),e16.8,2(i6,1x))'
+  character(len=*), parameter       :: frmtr='(2(i16,1x),e16.8,2(i16,1x))'
   integer  :: irs,ics,i,j
 
   if (present(eirs)) then