diff --git a/src/mzscheme/src/char.c b/src/mzscheme/src/char.c
index d351441935..df8979e1cc 100644
--- a/src/mzscheme/src/char.c
+++ b/src/mzscheme/src/char.c
@@ -407,7 +407,7 @@ static Scheme_Object *char_general_category (int argc, Scheme_Object *argv[])
   cat = scheme_general_category(c);
   if (!general_category_symbols[cat]) {
     Scheme_Object *s;
-    s = scheme_make_symbol(general_category_names[cat]);
+    s = scheme_intern_symbol(general_category_names[cat]);
     general_category_symbols[cat] = s;
   }
 
diff --git a/src/mzscheme/src/mk-uchar.ss b/src/mzscheme/src/mk-uchar.ss
index c6eee441bb..06dbc9e4f1 100644
--- a/src/mzscheme/src/mk-uchar.ss
+++ b/src/mzscheme/src/mk-uchar.ss
@@ -582,6 +582,7 @@
 (printf "  for (i = 0; i < ~a; i++) { ~n" hi-count)
 (printf "    scheme_uchar_table[i] = udata;~n")
 (printf "    scheme_uchar_cases_table[i] = udata_cases;~n")
+(printf "    scheme_uchar_cats_table[i] = udata_cats;~n")
 (printf "  }~n")
 (printf "~n")
 (define (print-init top vectors suffix)
diff --git a/src/mzscheme/src/schuchar.inc b/src/mzscheme/src/schuchar.inc
index ae8a738d51..254f357551 100644
--- a/src/mzscheme/src/schuchar.inc
+++ b/src/mzscheme/src/schuchar.inc
@@ -3992,6 +3992,7 @@ static void init_uchar_table(void)
   for (i = 0; i < 8192; i++) { 
     scheme_uchar_table[i] = udata;
     scheme_uchar_cases_table[i] = udata_cases;
+    scheme_uchar_cats_table[i] = udata_cats;
   }
 
   scheme_uchar_table[0] = udata + 256;