diff --git a/IPhreeqc.f90.inc b/IPhreeqc.f90.inc
index 566e33bd..0a7b5403 100644
--- a/IPhreeqc.f90.inc
+++ b/IPhreeqc.f90.inc
@@ -377,14 +377,23 @@
 
 
        INTERFACE
-        FUNCTION SetErrorFileOn(ID,ERR_ON)
+        FUNCTION SetErrorFileOn(ID,ERR_FILE_ON)
          INTEGER(KIND=4),  INTENT(IN) :: ID
-         LOGICAL(KIND=4),  INTENT(IN) :: ERR_ON
+         LOGICAL(KIND=4),  INTENT(IN) :: ERR_FILE_ON
          INTEGER(KIND=4)              :: SetErrorFileOn
         END FUNCTION SetErrorFileOn
        END INTERFACE
 
 
+       INTERFACE
+        FUNCTION SetErrorStringOn(ID,ERR_STRING_ON)
+         INTEGER(KIND=4),  INTENT(IN) :: ID
+         LOGICAL(KIND=4),  INTENT(IN) :: ERR_ON
+         INTEGER(KIND=4)              :: SetErrorStringOn
+        END FUNCTION SetErrorStringOn
+       END INTERFACE
+
+
        INTERFACE
         FUNCTION SetLogFileName(ID,FNAME)
          INTEGER(KIND=4),  INTENT(IN) :: ID
diff --git a/IPhreeqcF.f b/IPhreeqcF.f
index c7060e58..d3c72baf 100644
--- a/IPhreeqcF.f
+++ b/IPhreeqcF.f
@@ -478,6 +478,15 @@
         INTEGER(KIND=4) :: SetErrorFileOnF
         SetErrorFileOn = SetErrorFileOnF(ID,ERROR_ON)
       END FUNCTION SetErrorFileOn
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      FUNCTION SetErrorStringOn(ID,ERROR_STRING_ON)
+        IMPLICIT NONE
+        INTEGER(KIND=4) :: ID
+		LOGICAL(KIND=4) :: ERROR_STRING_ON
+        INTEGER(KIND=4) :: SetErrorStringOn
+        INTEGER(KIND=4) :: SetErrorStringOnF
+        SetErrorStringOn = SetErrorStringOnF(ID,ERROR_STRING_ON)
+      END FUNCTION SetDumpStringOn
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       FUNCTION SetLogFileName(ID,FNAME)
         IMPLICIT NONE