initializeDuringGenesis " Initialize the receiver's default contents during the genesis. This message can be send during the bigBang to initialize default classes and basic environment globals. " self newClass: #ProtoObject subclassOf: self rootClass category: 'Kernel-Objects'; newClass: #Object subclassOf: #ProtoObject category: 'Kernel-Objects'; newClass: #UndefinedObject subclassOf: #Object category: 'Kernel-Objects'; newClass: #PseudoContext subclassOf: self rootClass instanceVariableNames: 'fixed fields never accessed from smalltalk ' category: 'Kernel-Methods'; yourself. (self globalAt: #Object) ensureClassPool. (self globalAt: #Object) classPool addAll: { #DependentsFields->nil. #EventsFields->nil }.