--- parrot/src/inter_create.c	Sun May 29 05:26:54 2005
+++ parrot-devel/src/inter_create.c	Sun May 29 05:29:26 2005
@@ -114,6 +114,7 @@
     else {
         SET_NULL(interpreter->parent_interpreter);
         SET_NULL(interpreter->lo_var_ptr);
+        MUTEX_INIT(class_count_mutex);
     }
     interpreter->resume_flag = RESUME_INITIAL;
     interpreter->recursion_limit = 1000;
@@ -406,6 +407,7 @@
         mem_sys_free(interpreter->evc_func_table);
     /* strings, chartype, encodings */
     if (!interpreter->parent_interpreter) {
+        MUTEX_DESTROY(class_count_mutex);
         string_deinit(interpreter);
         /*
            chartype_destroy();