1 files changed, 8 insertions, 2 deletions
diff --git a/libguile/chars.c b/libguile/chars.c
index 2103c540c..56239f597 100644
--- a/libguile/chars.c
+++ b/libguile/chars.c
@@ -296,14 +296,20 @@ TODO: change name  to scm_i_.. ? --hwn
 scm_t_wchar
 scm_c_upcase (scm_t_wchar c)
 {
-  return uc_toupper (c);
+  if (c > 255)
+    return c;
+
+  return toupper ((int) c);
 }
 
 
 scm_t_wchar
 scm_c_downcase (scm_t_wchar c)
 {
-  return uc_tolower (c);
+  if (c > 255)
+    return c;
+
+  return tolower ((int) c);
 }