1 files changed, 5 insertions, 4 deletions
diff --git a/src/IO/FortranBindingsIO.c b/src/IO/FortranBindingsIO.c
index 129ae496..c5d54933 100644
--- a/src/IO/FortranBindingsIO.c
+++ b/src/IO/FortranBindingsIO.c
@@ -23,11 +23,12 @@ void CCTK_FCALL CCTK_FNAME(CCTK_OutputGH)
   *istat = CCTK_OutputGH(GH);
 }
 
-void CCTK_FCALL CCTK_FNAME(CCTK_RegisterIOMethod)
-     (int *handle, ONE_FORTSTRING_ARG)
+void CCTK_FCALL CCTK_FNAME(CCTKi_RegisterIOMethod)
+     (int *handle, TWO_FORTSTRING_ARG)
 {
-  ONE_FORTSTRING_CREATE(name);
-  *handle = CCTK_RegisterIOMethod(name);
+  TWO_FORTSTRING_CREATE(thorn,name);
+  *handle = CCTKi_RegisterIOMethod(thorn,name);
+  free(thorn);
   free(name);
 }