diff --git a/mlprec/impl/mld_cmlprec_aply.f90 b/mlprec/impl/mld_cmlprec_aply.f90
index c9c43415..94211900 100644
--- a/mlprec/impl/mld_cmlprec_aply.f90
+++ b/mlprec/impl/mld_cmlprec_aply.f90
@@ -1552,7 +1552,7 @@ contains
       end if
 
       !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
       !  
       call psb_map_Y2X(cone,mlprec_wrk(level+1)%y2l,&
            & cone,mlprec_wrk(level)%y2l,&
diff --git a/mlprec/impl/mld_dmlprec_aply.f90 b/mlprec/impl/mld_dmlprec_aply.f90
index 04f42e59..435602bd 100644
--- a/mlprec/impl/mld_dmlprec_aply.f90
+++ b/mlprec/impl/mld_dmlprec_aply.f90
@@ -1552,7 +1552,7 @@ contains
       end if
 
       !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
       !  
       call psb_map_Y2X(done,mlprec_wrk(level+1)%y2l,&
            & done,mlprec_wrk(level)%y2l,&
diff --git a/mlprec/impl/mld_smlprec_aply.f90 b/mlprec/impl/mld_smlprec_aply.f90
index cdb5be9f..bdf12128 100644
--- a/mlprec/impl/mld_smlprec_aply.f90
+++ b/mlprec/impl/mld_smlprec_aply.f90
@@ -1552,7 +1552,7 @@ contains
       end if
 
       !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
       !  
       call psb_map_Y2X(sone,mlprec_wrk(level+1)%y2l,&
            & sone,mlprec_wrk(level)%y2l,&
diff --git a/mlprec/impl/mld_zmlprec_aply.f90 b/mlprec/impl/mld_zmlprec_aply.f90
index 89e6cf8c..08bebe6e 100644
--- a/mlprec/impl/mld_zmlprec_aply.f90
+++ b/mlprec/impl/mld_zmlprec_aply.f90
@@ -1552,7 +1552,7 @@ contains
       end if
 
       !
-      ! Apply the prolongator
+      ! Apply the prolongator and add correction.
       !  
       call psb_map_Y2X(zone,mlprec_wrk(level+1)%y2l,&
            & zone,mlprec_wrk(level)%y2l,&