Object.intern_register_classes()
    # Klassen registrieren
	self.class_with_name("Object").register_as_global();
	self.class_with_name("ClassObject").register_as_global();

	self.class_with_name("Method").register_as_global();
	self.class_with_name("ClassMethod").register_as_global();

	self.class_with_name("FixedVector").register_as_global();
	self.class_with_name("ClassFixedVector").register_as_global();

	self.class_with_name("Integer").register_as_global();
	self.class_with_name("ClassInteger").register_as_global();

	self.class_with_name("True").register_as_global();
	self.class_with_name("ClassTrue").register_as_global();

	self.class_with_name("False").register_as_global();
	self.class_with_name("ClassFalse").register_as_global();

	self.class_with_name("Nil").register_as_global();
	self.class_with_name("ClassNil").register_as_global();

	self.class_with_name("MetaMetaClass").register_as_global();
	self.class_with_name("MetaClass").register_as_global();

	self.class_with_name("String").register_as_global();
	self.class_with_name("ClassString").register_as_global();

	self.class_with_name("Symbol").register_as_global();
	self.class_with_name("ClassSymbol").register_as_global();

	self
!

Object.intern_move_classes()
    # Klassen verschieben
    Method.intern_move(Slotted);
    True.intern_move(Boolean);
    False.intern_move(Boolean);
	self
!
Object.read_source()
	"tlib/Rope.ot".read_file();
	"tlib/Dictionary.ot".read_file();
	"tlib/Exception.ot".read_file();
	"tlib/Incarnation.ot".read_file();
	self
!
Object.install_classes()
	|o_class s_class class c_class i_class|
    # Klassenstruktur aubauen
    # Object
    # |
    # +-- Boolean
    # |
    # +-- Slotted
    #     |
    #     +-- Char
    #     |
    #     +-- Collection
    #         |
    #         +-- IndexedCollection
    #             |
    #             +-- Rope
    #             |
    #             +-- Assoziation
    #                 |
    #                 +-- Dictionary
    #                 
    self.intern_register_classes();
    o_class = self.class_with_name("Object");
	o_class.new_sub_class("Boolean",FixedVector.empty_vector());
	s_class = o_class.new_sub_class("Slotted",FixedVector.empty_vector());
	c_class = s_class.new_sub_class("Collection",FixedVector.empty_vector());
	i_class = s_class.new_sub_class("IndexedCollection",FixedVector.empty_vector());

	class = i_class.new_sub_class("Rope",FixedVector.new_with_two("vector","size"));
	
    IndexedCollection.new_sub_class("Assoziation",FixedVector.empty_vector());
	Assoziation.new_sub_class("Dictionary",FixedVector.new_with_three("keys","values","size"));
	Dictionary.new_sub_class("HashedDictionary",FixedVector.new_with_two("hash_keys","hash_values"));
	c_class = s_class.new_sub_class("Char",FixedVector.new_with("code"));
	
    self.intern_move_classes();
	self.read_source();
	self
