diff --git a/mlprec/impl/mld_c_hierarchy_bld.f90 b/mlprec/impl/mld_c_hierarchy_bld.f90
index 305485b1..51f8d358 100644
--- a/mlprec/impl/mld_c_hierarchy_bld.f90
+++ b/mlprec/impl/mld_c_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_c_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_d_hierarchy_bld.f90 b/mlprec/impl/mld_d_hierarchy_bld.f90
index e36ed39b..ee8e78c7 100644
--- a/mlprec/impl/mld_d_hierarchy_bld.f90
+++ b/mlprec/impl/mld_d_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_d_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_s_hierarchy_bld.f90 b/mlprec/impl/mld_s_hierarchy_bld.f90
index 86aaaa5a..42370511 100644
--- a/mlprec/impl/mld_s_hierarchy_bld.f90
+++ b/mlprec/impl/mld_s_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_s_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !      
diff --git a/mlprec/impl/mld_z_hierarchy_bld.f90 b/mlprec/impl/mld_z_hierarchy_bld.f90
index 27a32df4..f7ac91e0 100644
--- a/mlprec/impl/mld_z_hierarchy_bld.f90
+++ b/mlprec/impl/mld_z_hierarchy_bld.f90
@@ -301,8 +301,10 @@ subroutine mld_z_hierarchy_bld(a,desc_a,p,info)
     if (debug_level >= psb_debug_outer_) &
          & write(debug_unit,*) me,' ',trim(name),&
          & 'Return from ',i,' call to mlprcbld ',info      
-
-
+    !
+    ! Save op_prol just in case
+    !
+    call op_prol%clone(p%precv(i)%tprol,info)
     !
     ! Check for early termination of aggregation loop. 
     !