X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/15ccf10bf2d7cb15ec46f2eb62c6eb86827c9108..661ae7ab6be5aec4d6107902cff94dbb8952a24a:/libguile/error.c

diff --git a/libguile/error.c b/libguile/error.c
index 57180e2e1..02095bf06 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -130,12 +130,12 @@ SCM_DEFINE (scm_strerror, "strerror", 1, 0, 0,
 #define FUNC_NAME s_scm_strerror
 {
   SCM ret;
-  scm_frame_begin (0);
-  scm_i_frame_pthread_mutex_lock (&scm_i_misc_mutex);
+  scm_dynwind_begin (0);
+  scm_i_dynwind_pthread_mutex_lock (&scm_i_misc_mutex);
 
   ret = scm_from_locale_string (SCM_I_STRERROR (scm_to_int (err)));
 
-  scm_frame_end ();
+  scm_dynwind_end ();
   return ret;
 }
 #undef FUNC_NAME