 TYPE
    fdt$get_object_key = (fdc$get_object_definition, fdc$get_object_display,
      fdc$get_object_name, fdc$get_object_text, fdc$get_object_text_length,
      fdc$get_unused_object_entry);
