diff --git a/SWIG/Lib/guile/guile.swg b/SWIG/Lib/guile/guile.swg
index 423f6a0c9..9da9db8be 100644
--- a/SWIG/Lib/guile/guile.swg
+++ b/SWIG/Lib/guile/guile.swg
@@ -19,4 +19,11 @@
                                       gh_list(object, GH_NOT_PASSED));   \
     }
 
+char *
+GSWIG_scm2str (SCM s)
+{
+  int len = scm_string_length (s);
+  return gh_scm2newstr (s, &len);
+}
+
 /* guile.swg ends here */