diff --git a/src/nwdft/coulomb/dft_n3c.F b/src/nwdft/coulomb/dft_n3c.F
index 6081f2f9e4..36fd22b1ef 100644
--- a/src/nwdft/coulomb/dft_n3c.F
+++ b/src/nwdft/coulomb/dft_n3c.F
@@ -40,8 +40,8 @@ c
       oprint_3c2eh = util_print('3c 2e integrals details', print_high)
       THRESHOLD=10.d0**(-itol2e)
       nproc=ga_nnodes()
-      spherical_ao=bas_spherical(ao_bas_han)
-      spherical_cd=bas_spherical(cd_bas_han)
+      spherical_ao=bas_is_spherical(ao_bas_han)
+      spherical_cd=bas_is_spherical(cd_bas_han)
 c      
 c     Determine the characteristics of the AO and CD Gaussian basis sets.
 c      
diff --git a/src/solvation/cosmo_thomson.F b/src/solvation/cosmo_thomson.F
index 69154d04af..6ac2a80066 100644
--- a/src/solvation/cosmo_thomson.F
+++ b/src/solvation/cosmo_thomson.F
@@ -254,8 +254,8 @@ c     of a unit sphere. Spherical coordinates are used.
         enddo
       enddo
 
-      call dgop(0,energy,1,'+')
-      call dgop(0,grad,2*n,'+')
+      call ga_dgop(0,energy,1,'+')
+      call ga_dgop(0,grad,2*n,'+')
       call dscal(2*n,0.5d0,grad,1)
 
       end subroutine
diff --git a/src/util/util_nwchem_srcdir.F b/src/util/util_nwchem_srcdir.F
index 3a3337b171..ba119e91c4 100644
--- a/src/util/util_nwchem_srcdir.F
+++ b/src/util/util_nwchem_srcdir.F
@@ -14,7 +14,7 @@ C> interface that can simply be called from the Fortran code without
 C> having to pull any stunts.
 C>
       subroutine util_nwchem_srcdir(pathname)
-#define MAXLENGTH 256
+#define MAXLENGTH 255
 #ifdef NWCHEM_LONG_PATHS
       USE ISO_C_BINDING
 #endif