diff --git a/src/property/hnd_property.F b/src/property/hnd_property.F
index d0863c7f5d..51891fbca4 100644
--- a/src/property/hnd_property.F
+++ b/src/property/hnd_property.F
@@ -1,6 +1,6 @@
       logical function hnd_property(rtdb)
 *
-* $Id: hnd_property.F,v 1.3 1997-06-24 16:56:32 mdupuis Exp $
+* $Id: hnd_property.F,v 1.4 1997-07-30 02:07:44 d3g681 Exp $
 *
       implicit none
 #include "mafdecls.fh"
@@ -48,7 +48,7 @@ c
 c
       if (ga_nodeid().eq.0) then
          if (util_print('information',print_low)) then
-            call util_print_centered(luout,'NWCHEM HND_PROP Module',
+            call util_print_centered(luout,'NWChem Property Module',
      $           40,.true.)
             write(luout,*)
             call util_flush(luout)
diff --git a/src/property/prop.F b/src/property/prop.F
index cac90957af..aa88c486c9 100644
--- a/src/property/prop.F
+++ b/src/property/prop.F
@@ -5,7 +5,7 @@ c
 c>>>  Inquire rtdb for properties to be evaluated.
 c
 *
-* $Id: prop.F,v 1.8 1997-07-10 22:31:12 mdupuis Exp $
+* $Id: prop.F,v 1.9 1997-07-30 02:07:44 d3g681 Exp $
 *
       implicit none
       integer rtdb              ! [input]
@@ -24,8 +24,8 @@ c
       call ga_sync()
 
       status = rtdb_parallel(.true.) ! Broadcast reads to all processes
-      if(ga_nodeid().eq.0)
-     $     call util_print_centered(LUout,'Properties',40,.true.)
+*      if(ga_nodeid().eq.0)
+*     $     call util_print_centered(LUout,'Properties',40,.true.)
 c
 c     hondo property calculation routines 
 c
diff --git a/src/property/prp.F b/src/property/prp.F
index cdbff931f4..31e84a912e 100644
--- a/src/property/prp.F
+++ b/src/property/prp.F
@@ -1,5 +1,5 @@
 *
-* $Id: prp.F,v 1.22 1997-07-10 22:31:13 mdupuis Exp $
+* $Id: prp.F,v 1.23 1997-07-30 02:07:47 d3g681 Exp $
 *
       SUBROUTINE HND_PROPTY(RTDB,BASIS,GEOM)
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
@@ -193,9 +193,9 @@ C
  9999 FORMAT(/,' ----- property selection -----',/,
      1 ' nodip =',I2,' noqdp =',I2,' nootp =',I2,
      2 ' nopop =',I2,' nospin=',I2,
-     3 ' noloc =',I2,' nodpl =',I2,' nodhp =',I2,' nod2hp=',I2,/,
+     3 ' noloc =',I2,' nodpl =',I2,/,' nodhp =',I2,' nod2hp=',I2,
      4 ' nofpl =',I2,' nofhp =',I2,' nof2hp=',I2,' nosos =',I2,
-     5 ' noelp =',I2,' noelf =',I2,' noelfg=',I2,' noden =',I2,
+     5 ' noelp =',I2,/,' noelf =',I2,' noelfg=',I2,' noden =',I2,
      6 ' nonmr =',I2,' noston=',I2)
  9998 FORMAT(' runtyp = --',A8,'--',/,' scftyp = --',A8,'--')
       END
@@ -10884,6 +10884,8 @@ C
       data blank/'  '/
 c
 c         ----- fill basis function symbol table -----
+c
+      debug = .false.
 c
       n = 0
       lastat=0