diff --git a/xc-pot/libxc_postprocess_gga.f90 b/xc-pot/libxc_postprocess_gga.f90
index 04193ea7cc1fd10d9ea4eae55156007ab94de42f..8bcd9e8cade3f71e1dfefc3e7f100def03944815 100644
--- a/xc-pot/libxc_postprocess_gga.f90
+++ b/xc-pot/libxc_postprocess_gga.f90
@@ -112,7 +112,7 @@ CONTAINS
        DO i=1,SIZE(v_xc,1) !loop over points
           v_xc(i,1)=v_xc(i,1)-2*dot_PRODUCT(grad_sigma%gr(:,i,1),grad%gr(:,i,1))-2*vsigma(i,1)*grad%laplace(i,1)-&
                dot_PRODUCT(grad_sigma%gr(:,i,2),grad%gr(:,i,2))-vsigma(i,2)*grad%laplace(i,2)
-          v_xc(i,1)=v_xc(i,2)-2*dot_PRODUCT(grad_sigma%gr(:,i,3),grad%gr(:,i,2))-2*vsigma(i,3)*grad%laplace(i,2)-&
+          v_xc(i,2)=v_xc(i,2)-2*dot_PRODUCT(grad_sigma%gr(:,i,3),grad%gr(:,i,2))-2*vsigma(i,3)*grad%laplace(i,2)-&
                dot_PRODUCT(grad_sigma%gr(:,i,2),grad%gr(:,i,1))-vsigma(i,2)*grad%laplace(i,1)
        ENDDO
     END IF