From 0b4f77192da214690aa811d13bb6a7f6dd576445 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 29 Aug 2011 22:20:39 +0200
Subject: [PATCH] fix scm_gc_strdup invocation

* libguile/i18n.c (get_current_locale): Fix scm_gc_strdup invocation.
---
 libguile/i18n.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/i18n.c b/libguile/i18n.c
index 82e8b2a63..c0deb98d4 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -508,7 +508,7 @@ get_current_locale (SCM *result)
 
   current_locale = setlocale (LC_ALL, NULL);
   if (current_locale != NULL)
-    c_locale->locale_name = scm_gc_strdup (current_locale);
+    c_locale->locale_name = scm_gc_strdup (current_locale, "locale");
   else
     err = EINVAL;