VALUE intersys_base_reconnect(VALUE self) {
  struct rbDatabase* base;
  Data_Get_Struct(self, struct rbDatabase, base);

  RUN(cbind_free_conn(base->connection));
  RUN(cbind_free_db(base->database));

  RUN(cbind_alloc_conn(base->connection_string, base->user, base->password, base->timeout, &base->connection));
  RUN(cbind_alloc_db(base->connection, &base->database));

  VALUE intersys_module_klass = rb_const_get(rb_cObject, rb_intern("Intersys"));
  VALUE object_klass = rb_const_get(intersys_module_klass, rb_intern("Object"));

  rb_iv_set(object_klass, "@database", self);

  // mark cached data dirty to reload cached objects, because oref is not valid anymore
  rb_funcall(object_klass, rb_intern("metadata_cache_was_dirty!"), 0);

  return self;
}