diff --git a/base/modules/psb_c_vect_mod.F90 b/base/modules/psb_c_vect_mod.F90
index f213af24..00cf37aa 100644
--- a/base/modules/psb_c_vect_mod.F90
+++ b/base/modules/psb_c_vect_mod.F90
@@ -164,7 +164,7 @@ contains
     class(psb_c_base_vect_type), pointer :: mld
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
@@ -195,7 +195,7 @@ contains
 
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
diff --git a/base/modules/psb_d_vect_mod.F90 b/base/modules/psb_d_vect_mod.F90
index e3d4ef2b..c7563154 100644
--- a/base/modules/psb_d_vect_mod.F90
+++ b/base/modules/psb_d_vect_mod.F90
@@ -164,7 +164,7 @@ contains
     class(psb_d_base_vect_type), pointer :: mld
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
@@ -195,7 +195,7 @@ contains
 
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
diff --git a/base/modules/psb_s_vect_mod.F90 b/base/modules/psb_s_vect_mod.F90
index f038548e..0ca5ac33 100644
--- a/base/modules/psb_s_vect_mod.F90
+++ b/base/modules/psb_s_vect_mod.F90
@@ -164,7 +164,7 @@ contains
     class(psb_s_base_vect_type), pointer :: mld
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
@@ -195,7 +195,7 @@ contains
 
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
diff --git a/base/modules/psb_z_vect_mod.F90 b/base/modules/psb_z_vect_mod.F90
index ee667084..56786440 100644
--- a/base/modules/psb_z_vect_mod.F90
+++ b/base/modules/psb_z_vect_mod.F90
@@ -164,7 +164,7 @@ contains
     class(psb_z_base_vect_type), pointer :: mld
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD
@@ -195,7 +195,7 @@ contains
 
 
     if (allocated(x%v)) &
-         & call x%v%free(info)
+         & call x%free(info)
 
     if (present(mold)) then 
 #ifdef HAVE_MOLD