PseudoContext strange behavior

> PseudoContext superclass -> nil.
>
> "THIS IS SURPRISING:"
> (PseudoContext isKindOf: Class) -> false.
>
> PseudoContext definition ->
> 'ProtoObject variableSubclass: #PseudoContext
>        instanceVariableNames: ''fixed fields never accessed from smalltalk''
>        classVariableNames: ''''
>        poolDictionaries: ''''
>        category: ''Kernel-Methods''.
> PseudoContext superclass: nil'
>
> If I compare this to ProtoObject:
>
> ProtoObject superclass -> nil.
> (ProtoObject isKindOf: Class) -> true.
> ProtoObject definition ->
> 'ProtoObject subclass: #ProtoObject
>        instanceVariableNames: ''''
>        classVariableNames: ''''
>        poolDictionaries: ''''
>        category: ''Kernel-Objects''.
> ProtoObject superclass: nil'
>
> "MORE DETAIL"
> (PseudoContext isKindOf: ClassDescription) -> true.
> (ClassDescription subclasses select: [:each | PseudoContext isKindOf:
> each]) -> #().
> PseudoContext class allInstances -> PseudoContext.
> PseudoContext class allInstances anyOne == PseudoContext -> true.
> PseudoContext class superclass -> Class.
>
> "This PseudoContext makes OB unhappy and I do not understand, please help !"
>
> "Nicolas"
>

> On Sun, Apr 4, 2010 at 9:06 PM, Nicolas Cellier
> <[hidden email]> wrote:
>>
>> 2010/4/4 Nicolas Cellier <[hidden email]>:
>> > PseudoContext superclass -> nil.
>> >
>> > "THIS IS SURPRISING:"
>> > (PseudoContext isKindOf: Class) -> false.
>> >
>> > PseudoContext definition ->
>> > 'ProtoObject variableSubclass: #PseudoContext
>> >        instanceVariableNames: ''fixed fields never accessed from
>> > smalltalk''
>> >        classVariableNames: ''''
>> >        poolDictionaries: ''''
>> >        category: ''Kernel-Methods''.
>> > PseudoContext superclass: nil'
>> >
>> > If I compare this to ProtoObject:
>> >
>> > ProtoObject superclass -> nil.
>> > (ProtoObject isKindOf: Class) -> true.
>> > ProtoObject definition ->
>> > 'ProtoObject subclass: #ProtoObject
>> >        instanceVariableNames: ''''
>> >        classVariableNames: ''''
>> >        poolDictionaries: ''''
>> >        category: ''Kernel-Objects''.
>> > ProtoObject superclass: nil'
>> >
>> > "MORE DETAIL"
>> > (PseudoContext isKindOf: ClassDescription) -> true.
>> > (ClassDescription subclasses select: [:each | PseudoContext isKindOf:
>> > each]) -> #().
>> > PseudoContext class allInstances -> PseudoContext.
>> > PseudoContext class allInstances anyOne == PseudoContext -> true.
>> > PseudoContext class superclass -> Class.
>> >
>> > "This PseudoContext makes OB unhappy and I do not understand, please
>> > help !"
>> >
>> > "Nicolas"
>> >
>>
>> More clues:
>>
>> ProtoObject class superclass == Class -> true.
>> PseudoContext class superclass == Class -> false.
>>
>> Is it only my image which is broken ?
>>
>> Nicolas
>>
>
>
>
> --
> Enrico Spinielli
> "Do Androids dream of electric sheep?"— Philip K. Dick
> "Hear and forget; see and remember;do and understand."—Mitchel Resnick
>
>
>
>