Export <slot> from GOOPS

[bpt/guile.git] / libguile / chars.c

diff --git a/libguile/chars.c b/libguile/chars.c
index e1aab1d..064fca4 100644 (file)
--- a/libguile/chars.c
+++ b/libguile/chars.c
@@ -1,6 +1,6 @@
 /* Copyright (C) 1995,1996,1998, 2000, 2001, 2004, 2006, 2008, 2009,
- *   2010, 2014 Free Software Foundation, Inc.
- * 
+ *   2010, 2011, 2014 Free Software Foundation, Inc.
+ *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
  * as published by the Free Software Foundation; either version 3 of
@@ -493,7 +493,7 @@ SCM_DEFINE (scm_char_general_category, "char-general-category", 1, 0, 0,
   sym = uc_general_category_name (cat);
 
   if (sym != NULL)
-    return scm_from_locale_symbol (sym);
+    return scm_from_utf8_symbol (sym);
   return SCM_BOOL_F;
 }
 #undef FUNC_NAME