0
@@ -330,7 +330,9 @@ VALUE rb_obj_is_instance_of(VALUE obj, VALUE klass) {
0
 }
0
 
0
 VALUE rb_obj_is_kind_of(VALUE obj, VALUE klass) {
0
-  return rb_funcall(obj, rb_intern("kind_of?"), 1, klass);
0
+  CTX;
0
+  //HACK ? Calling rb_funcall() causes segmentation fault
0
+  return object_kind_of_p(ctx->state, HNDL(obj), HNDL(klass)) ? Qtrue : Qfalse;
0
 }
0
 
0
 int rb_respond_to(VALUE obj, ID sym) {

0
@@ -1,4 +1,3 @@
0
-fails:SubtendObject rb_is_kind_of should return true if an object is an instance or descendent
0
 fails:SubtendObject rb_to_id should return a symbol representation of the object
0
 fails:SubtendObject rb_check_array_type should try to coerce to array, otherwise return nil
0
 fails:SubtendObject rb_check_convert_type should try to coerce to a type, otherwise return nil