I got a recent dev-image and ran some tests (all CollectionTests if this 
matter) and attempted to store the result.

30 November 2009 5:26:40 pm

VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179]
Image: PharoCore1.0rc1 [Latest update: #10498]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir E:\Pharo
Trusted Dir E:\Pharo\Cesar S. Rabak
Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak

UndefinedObject(Object)>>doesNotUnderstand: #<
        Receiver: nil
        Arguments and temporary variables: 
                aMessage:       < 0
                exception:      MessageNotUnderstood: receiver of "<" is nil
                resumeValue:    nil
        Receiver's instance variables: 
nil

EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
        Receiver: {an EncoderForV3PlusClosures}
        Arguments and temporary variables: 
                literalIndex:   nil
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                scopeTable:     a Dictionary('category'->{category} 
'classPool'->{classPool} 'envir...etc...
                nTemps:         0
                supered:        false
                requestor:      nil
                class:  StringTest class
                selector:       #lastStoredRun
                literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. 
#'->'. #passed. #...etc...
                selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} 
#'->'->{->} #/->{/} #'//'->{/...etc...
                litIndSet:      a 
Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
                litSet:         a LiteralDictionary(size 302)
                sourceRanges:   a Dictionary(size 309)
                globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 
to: 29). false} {'S...etc...
                addedSelectorAndMethodClassLiterals:    false
                stream:         {an EncoderForV3PlusClosures}
                position:       0
                rootNode:       lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
                blockExtentsToLocals:   nil

EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
        Receiver: {an EncoderForV3PlusClosures}
        Arguments and temporary variables: 
                genSelector:    #genPushLiteral:
                args:   #(nil)
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                scopeTable:     a Dictionary('category'->{category} 
'classPool'->{classPool} 'envir...etc...
                nTemps:         0
                supered:        false
                requestor:      nil
                class:  StringTest class
                selector:       #lastStoredRun
                literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. 
#'->'. #passed. #...etc...
                selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} 
#'->'->{->} #/->{/} #'//'->{/...etc...
                litIndSet:      a 
Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
                litSet:         a LiteralDictionary(size 302)
                sourceRanges:   a Dictionary(size 309)
                globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 
to: 29). false} {'S...etc...
                addedSelectorAndMethodClassLiterals:    false
                stream:         {an EncoderForV3PlusClosures}
                position:       0
                rootNode:       lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
                blockExtentsToLocals:   nil

EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
        Receiver: {an EncoderForV3PlusClosures}
        Arguments and temporary variables: 
                literalIndex:   nil
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                scopeTable:     a Dictionary('category'->{category} 
'classPool'->{classPool} 'envir...etc...
                nTemps:         0
                supered:        false
                requestor:      nil
                class:  StringTest class
                selector:       #lastStoredRun
                literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. 
#'->'. #passed. #...etc...
                selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} 
#'->'->{->} #/->{/} #'//'->{/...etc...
                litIndSet:      a 
Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
                litSet:         a LiteralDictionary(size 302)
                sourceRanges:   a Dictionary(size 309)
                globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 
to: 29). false} {'S...etc...
                addedSelectorAndMethodClassLiterals:    false
                stream:         {an EncoderForV3PlusClosures}
                position:       0
                rootNode:       lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
                blockExtentsToLocals:   nil

LiteralNode>>sizeCodeForValue:
        Receiver: {#testWithWithWithWith}
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                key:    #testWithWithWithWith
                code:   -3
                index:  nil

[] in MessageNode>>sizeCodeForValue:
        Receiver: { add: #testWithWithWithWith}
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       nil
                selector:       {add:}
                precedence:     3
                special:        0
                arguments:      an OrderedCollection({#testWithWithWithWith})
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

OrderedCollection>>collect:
        Receiver: an OrderedCollection({#testWithWithWithWith})
        Arguments and temporary variables: 
                aBlock:         [closure] in MessageNode>>sizeCodeForValue:
                newCollection:  an OrderedCollection()
                index:  3
        Receiver's instance variables: 
                array:  #(nil nil {#testWithWithWithWith} nil nil nil nil nil 
nil nil)
                firstIndex:     3
                lastIndex:      3

MessageNode>>sizeCodeForValue:
        Receiver: { add: #testWithWithWithWith}
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       nil
                selector:       {add:}
                precedence:     3
                special:        0
                arguments:      an OrderedCollection({#testWithWithWithWith})
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

[] in CascadeNode>>sizeCodeForValue:
        Receiver: {Set new add: #testAsArray;
         add: #testAsSet;
         add: #testAsSortedCollection;
         add: #tes...etc...
        Arguments and temporary variables: 
                encoder:        { add: #testWithWithWithWith}
                size:   {an EncoderForV3PlusClosures}
                aMessage:       #(1506)
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {Set new}
                messages:       an OrderedCollection({ add: #testAsArray} { 
add: #testAsSet} { add: #...etc...

OrderedCollection>>do:
        Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} 
{ add: #testAsSortedCollectio...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in CascadeNode>>sizeCodeForValue:
                index:  252
        Receiver's instance variables: 
                array:  an Array({ add: #testAsArray} { add: #testAsSet} { add: 
#testAsSortedCol...etc...
                firstIndex:     1
                lastIndex:      294

CascadeNode>>sizeCodeForValue:
        Receiver: {Set new add: #testAsArray;
         add: #testAsSet;
         add: #testAsSortedCollection;
         add: #tes...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
                size:   #(1506)
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {Set new}
                messages:       an OrderedCollection({ add: #testAsArray} { 
add: #testAsSet} { add: #...etc...

[] in MessageNode>>sizeCodeForValue:
        Receiver: {#passed -> (Set new add: #testAsArray;
                 add: #testAsSet;
                 add: #testAsSortedCollectio...etc...
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {#passed}
                selector:       {->}
                precedence:     2
                special:        0
                arguments:      an Array({Set new add: #testAsArray;
         add: #testAsSet;
         add: #test...etc...
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

Array(SequenceableCollection)>>collect:
        Receiver: an Array({Set new add: #testAsArray;
         add: #testAsSet;
         add: #testAsSortedCollection;
         ...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in MessageNode>>sizeCodeForValue:
                newCollection:  #(nil)
                index:  1
                indexLimiT:     1
        Receiver's instance variables: 
an Array({Set new add: #testAsArray;
         add: #testAsSet;
         add: #testAsSortedCollection;
         ...etc...

MessageNode>>sizeCodeForValue:
        Receiver: {#passed -> (Set new add: #testAsArray;
                 add: #testAsSet;
                 add: #testAsSortedCollectio...etc...
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {#passed}
                selector:       {->}
                precedence:     2
                special:        0
                arguments:      an Array({Set new add: #testAsArray;
         add: #testAsSet;
         add: #test...etc...
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

[] in MessageNode>>sizeCodeForValue:
        Receiver: { add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add: #testAsSortedC...etc...
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       nil
                selector:       {add:}
                precedence:     3
                special:        0
                arguments:      an OrderedCollection({#passed -> (Set new add: 
#testAsArray;
                 add:...etc...
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

OrderedCollection>>collect:
        Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray;
                 add: #testAsSet;
                 add: #...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in MessageNode>>sizeCodeForValue:
                newCollection:  an OrderedCollection()
                index:  3
        Receiver's instance variables: 
                array:  an Array(nil nil {#passed -> (Set new add: #testAsArray;
                 add: #testAs...etc...
                firstIndex:     3
                lastIndex:      3

MessageNode>>sizeCodeForValue:
        Receiver: { add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add: #testAsSortedC...etc...
        Arguments and temporary variables: 
<<error during printing>
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       nil
                selector:       {add:}
                precedence:     3
                special:        0
                arguments:      an OrderedCollection({#passed -> (Set new add: 
#testAsArray;
                 add:...etc...
                sizes:  #(nil)
                equalNode:      nil
                caseErrorNode:  nil

[] in CascadeNode>>sizeCodeForValue:
        Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add: ...etc...
        Arguments and temporary variables: 
                encoder:        { add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                        ...etc...
                size:   {an EncoderForV3PlusClosures}
                aMessage:       #(10)
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {Dictionary new}
                messages:       an OrderedCollection({ add: #passed -> (Set new 
add: #testAsArray;
                ...etc...

OrderedCollection>>do:
        Receiver: an OrderedCollection({ add: #passed -> (Set new add: 
#testAsArray;
                         add: #testAsSet;
                ...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in CascadeNode>>sizeCodeForValue:
                index:  3
        Receiver's instance variables: 
                array:  an Array(nil nil { add: #passed -> (Set new add: 
#testAsArray;
                         add: ...etc...
                firstIndex:     3
                lastIndex:      7

CascadeNode>>sizeCodeForValue:
        Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add: ...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
                size:   #(10)
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {Dictionary new}
                messages:       an OrderedCollection({ add: #passed -> (Set new 
add: #testAsArray;
                ...etc...

CascadeNode(ParseNode)>>sizeCodeForReturn:
        Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add: ...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                receiver:       {Dictionary new}
                messages:       an OrderedCollection({ add: #passed -> (Set new 
add: #testAsArray;
                ...etc...

ReturnNode>>sizeCodeForValue:
        Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                expr:   {Dictionary new add: #passed -> (Set new add: 
#testAsArray;
                         add: #tes...etc...

ReturnNode(ParseNode)>>sizeCodeForBlockValue:
        Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
                         add: #testAsSet;
                         add...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                expr:   {Dictionary new add: #passed -> (Set new add: 
#testAsArray;
                         add: #tes...etc...

BlockNode>>sizeCodeForEvaluatedValue:
        Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;
                                 add: #testAsSet;
                                 ...etc...
        Arguments and temporary variables: 
                encoder:        {an EncoderForV3PlusClosures}
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                arguments:      #()
                statements:     an OrderedCollection({^ Dictionary new add: 
#passed -> (Set new add...etc...
                returns:        true
                nArgsNode:      nil
                size:   nil
                remoteCopyNode:         nil
                temporaries:    an OrderedCollection()
                optimized:      false
                actualScopeIfOptimized:         nil
                blockExtent:    (0 to: 2)
                remoteTempNode:         nil
                copiedValues:   nil
                closureCreationNode:    nil
                startOfLastStatement:   16

BytecodeAgnosticMethodNode>>generate:
        Receiver: lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
                                 add: #tes...etc...
        Arguments and temporary variables: 
                trailer:        #(0 0 0 0)
                primErrNode:    nil
                blkSize:        nil
                nLits:  nil
                literals:       nil
                stack:  nil
                method:         nil
                locals:         nil
                lit:    nil
        Receiver's instance variables: 
                comment:        nil
                pc:     nil
                selectorOrFalse:        #lastStoredRun
                precedence:     1
                arguments:      #()
                block:  {[^ Dictionary new add: #passed -> (Set new add: 
#testAsArray;
                                 add:...etc...
                primitive:      0
                encoder:        {an EncoderForV3PlusClosures}
                temporaries:    #()
                properties:     an AdditionalMethodState
                sourceText:     'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
                locationCounter:        3
                localsPool:     an IdentitySet()

CompiledMethodWithNode class>>generateMethodFromNode:trailer:
        Receiver: CompiledMethodWithNode
        Arguments and temporary variables: 
                aMethodNode:    lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
                bytes:  #(0 0 0 0)
        Receiver's instance variables: 
                superclass:     Object
                methodDict:     a MethodDictionary(#method->a 
CompiledMethod(650: CompiledMethodWit...etc...
                format:         134
                instanceVariables:      #('node' 'method')
                organization:   ('accessing' method node selector)
('private' method: node:)

                subclasses:     nil
                name:   #CompiledMethodWithNode
                classPool:      nil
                sharedPools:    nil
                environment:    Smalltalk
                category:       #'Compiler-Support'
                traitComposition:       nil
                localSelectors:         nil

Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
        Receiver: StringTest class
        Arguments and temporary variables: 
                code:   'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
                category:       'history'
                requestor:      nil
                bytes:  #(0 0 0 0)
                failBlock:      [closure] in 
Metaclass(ClassDescription)>>compile:classified:withSta...etc...
                methodNode:     lastStoredRun
        ^ Dictionary new add: #passed -> (Set new add: #test...etc...
        Receiver's instance variables: 
                superclass:     CollectionRootTest class
                methodDict:     a MethodDictionary()
                format:         158
                instanceVariables:      nil
                organization:   ('as yet unclassified')

                thisClass:      StringTest
                traitComposition:       TIncludesTest classTrait + TCloneTest 
classTrait + TCopyTest ...etc...
                localSelectors:         nil

Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
        Receiver: StringTest class
        Arguments and temporary variables: 
                text:   'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
                category:       'history'
                changeStamp:    'CesarRabak 11/30/2009 17:26'
                requestor:      nil
                logSource:      true
                methodAndNode:  nil
        Receiver's instance variables: 
                superclass:     CollectionRootTest class
                methodDict:     a MethodDictionary()
                format:         158
                instanceVariables:      nil
                organization:   ('as yet unclassified')

                thisClass:      StringTest
                traitComposition:       TIncludesTest classTrait + TCloneTest 
classTrait + TCopyTest ...etc...
                localSelectors:         nil

Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
        Receiver: StringTest class
        Arguments and temporary variables: 
                text:   'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
                category:       'history'
                changeStamp:    'CesarRabak 11/30/2009 17:26'
                requestor:      nil
        Receiver's instance variables: 
                superclass:     CollectionRootTest class
                methodDict:     a MethodDictionary()
                format:         158
                instanceVariables:      nil
                organization:   ('as yet unclassified')

                thisClass:      StringTest
                traitComposition:       TIncludesTest classTrait + TCloneTest 
classTrait + TCopyTest ...etc...
                localSelectors:         nil

Metaclass(ClassDescription)>>compile:classified:notifying:
        Receiver: StringTest class
        Arguments and temporary variables: 
                text:   'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
                category:       'history'
                requestor:      nil
                stamp:  'CesarRabak 11/30/2009 17:26'
        Receiver's instance variables: 
                superclass:     CollectionRootTest class
                methodDict:     a MethodDictionary()
                format:         158
                instanceVariables:      nil
                organization:   ('as yet unclassified')

                thisClass:      StringTest
                traitComposition:       TIncludesTest classTrait + TCloneTest 
classTrait + TCopyTest ...etc...
                localSelectors:         nil

Metaclass(ClassDescription)>>compile:classified:
        Receiver: StringTest class
        Arguments and temporary variables: 
                code:   'lastStoredRun
        ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
                heading:        'history'
        Receiver's instance variables: 
                superclass:     CollectionRootTest class
                methodDict:     a MethodDictionary()
                format:         158
                instanceVariables:      nil
                organization:   ('as yet unclassified')

                thisClass:      StringTest
                traitComposition:       TIncludesTest classTrait + TCloneTest 
classTrait + TCopyTest ...etc...
                localSelectors:         nil

StringTest class(TestCase class)>>generateLastStoredRunMethod
        Receiver: StringTest
        Arguments and temporary variables: 

        Receiver's instance variables: 
                superclass:     CollectionRootTest
                methodDict:     a MethodDictionary(size 321)
                format:         158
                instanceVariables:      #('string' 'emptyString' 
'elementInNonEmpty' 'notIn' 'subcol...etc...
                organization:   ('initialization' setUp)
('requirements' aValue anIndex anotherEl...etc...
                subclasses:     nil
                name:   #StringTest
                classPool:      nil
                sharedPools:    nil
                environment:    Smalltalk
                category:       #'CollectionsTests-Text'
                traitComposition:       TIncludesTest + TCloneTest + TCopyTest 
+ TSetArithmetic + TIt...etc...
                localSelectors:         an IdentitySet(#elementNotIn 
#firstIndex #replacementCollection...etc...
                history:        a Dictionary(#errors->a Set() #failures->a 
Set() #passed->a Set(#testA...etc...

[] in TestRunner>>storeResultIntoTestCases
        Receiver: a TestRunner
        Arguments and temporary variables: 
                testCaseCls:    StringTest
        Receiver's instance variables: 
                categories:     #(#'AST-Tests' 
#'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
                categoriesSelected:     a Set(#'CollectionsTests-Support' 
#'CollectionsTests-Weak' ...etc...
                classes:        {Base64MimeConverterTest. ByteArrayTest. 
CharacterSetTest. Association...etc...
                classIndex:     0
                classesSelected:        a Set(TextAndTextStreamTest 
WideStringTest WriteStreamTest Ide...etc...
                failedList:     #()
                failedSelected:         nil
                errorList:      #()
                errorSelected:  nil
                lastUpdate:     3437054762
                result:         4978 run, 4978 passes, 0 expected failures, 0 
failures, 0 errors, 0 une...etc...
                previousRun:    nil

Set>>do:
        Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest 
WeakKeyToCollectionDictionaryTest ArrayT...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in 
TestRunner>>storeResultIntoTestCases
                index:  364
                each:   StringTest
                indexLimiT:     6638
        Receiver's instance variables: 
                tally:  49
                array:  {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. 
nil. nil. nil. n...etc...

TestRunner>>storeResultIntoTestCases
        Receiver: a TestRunner
        Arguments and temporary variables: 

        Receiver's instance variables: 
                categories:     #(#'AST-Tests' 
#'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
                categoriesSelected:     a Set(#'CollectionsTests-Support' 
#'CollectionsTests-Weak' ...etc...
                classes:        {Base64MimeConverterTest. ByteArrayTest. 
CharacterSetTest. Association...etc...
                classIndex:     0
                classesSelected:        a Set(TextAndTextStreamTest 
WideStringTest WriteStreamTest Ide...etc...
                failedList:     #()
                failedSelected:         nil
                errorList:      #()
                errorSelected:  nil
                lastUpdate:     3437054762
                result:         4978 run, 4978 passes, 0 expected failures, 0 
failures, 0 errors, 0 une...etc...
                previousRun:    nil

TestRunner>>perform:orSendTo:
        Receiver: a TestRunner
        Arguments and temporary variables: 
                selector:       #storeResultIntoTestCases
                otherTarget:    a PluggableTextMorphPlus(3170)
        Receiver's instance variables: 
                categories:     #(#'AST-Tests' 
#'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
                categoriesSelected:     a Set(#'CollectionsTests-Support' 
#'CollectionsTests-Weak' ...etc...
                classes:        {Base64MimeConverterTest. ByteArrayTest. 
CharacterSetTest. Association...etc...
                classIndex:     0
                classesSelected:        a Set(TextAndTextStreamTest 
WideStringTest WriteStreamTest Ide...etc...
                failedList:     #()
                failedSelected:         nil
                errorList:      #()
                errorSelected:  nil
                lastUpdate:     3437054762
                result:         4978 run, 4978 passes, 0 expected failures, 0 
failures, 0 errors, 0 une...etc...
                previousRun:    nil

[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
        Receiver: a ToggleMenuItemMorph(2690)'Store result as progress 
reference'
        Arguments and temporary variables: 
                evt:    [...@67 mouseUp 21933765 nil]
                selArgCount:    #(2)
        Receiver's instance variables: 
                bounds:         6...@54 corner: 8...@70
                owner:  a MenuMorph(2400)
                submorphs:      #()
                fullBounds:     6...@54 corner: 8...@70
                color:  Color black
                extension:      a MorphExtension (2845) [other:  
(layoutProperties -> a LayoutProper...etc...
                font:   a LogicalFont
 familyName: DejaVu Sans
 emphasis: nil
 pointSize: 10
 rea...etc...
                emphasis:       0
                contents:       'Store result as progress reference'
                hasFocus:       false
                isEnabled:      true
                subMenu:        nil
                isSelected:     false
                target:         a TestRunner
                selector:       #perform:orSendTo:
                arguments:      an Array(#storeResultIntoTestCases a 
PluggableTextMorphPlus(3170))
                icon:   nil
                getStateSelector:       nil
                enablementSelector:     nil
                keyText:        nil

BlockClosure>>ensure:
        Receiver: [closure] in 
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
        Arguments and temporary variables: 
                aBlock:         [closure] in CursorWithMask(Cursor)>>showWhile:
                returnValue:    nil
                b:      nil
        Receiver's instance variables: 
                outerContext:   
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
                startpc:        136
                numArgs:        0

CursorWithMask(Cursor)>>showWhile:
        Receiver: ((CursorWithMask
        extent: 1...@16
        depth: 1
        fromArray: #(
                2r0
                2r10000000000000000000000...etc...
        Arguments and temporary variables: 
                aBlock:         [closure] in 
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
                oldcursor:      ((CursorWithMask
        extent: 1...@16
        depth: 1
        fromArray: #(
                2r0
                2r1...etc...
        Receiver's instance variables: 
                bits:   a Bitmap of length 16
                width:  16
                height:         16
                depth:  1
                offset:         -...@-1
                maskForm:       Form(16x16x1)


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #<
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
LiteralNode>>sizeCodeForValue:
[] in MessageNode>>sizeCodeForValue:
OrderedCollection>>collect:
MessageNode>>sizeCodeForValue:
[] in CascadeNode>>sizeCodeForValue:
OrderedCollection>>do:
CascadeNode>>sizeCodeForValue:
[] in MessageNode>>sizeCodeForValue:
Array(SequenceableCollection)>>collect:
MessageNode>>sizeCodeForValue:
[] in MessageNode>>sizeCodeForValue:
OrderedCollection>>collect:
MessageNode>>sizeCodeForValue:
[] in CascadeNode>>sizeCodeForValue:
OrderedCollection>>do:
CascadeNode>>sizeCodeForValue:
CascadeNode(ParseNode)>>sizeCodeForReturn:
ReturnNode>>sizeCodeForValue:
ReturnNode(ParseNode)>>sizeCodeForBlockValue:
BlockNode>>sizeCodeForEvaluatedValue:
BytecodeAgnosticMethodNode>>generate:
CompiledMethodWithNode class>>generateMethodFromNode:trailer:
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
Metaclass(ClassDescription)>>compile:classified:notifying:
Metaclass(ClassDescription)>>compile:classified:
StringTest class(TestCase class)>>generateLastStoredRunMethod
[] in TestRunner>>storeResultIntoTestCases
Set>>do:
TestRunner>>storeResultIntoTestCases
TestRunner>>perform:orSendTo:
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
 - - - - - - - - - - - - - - -  
                        - - - - - - - - - - - - - - - - - -
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear:
[] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
WorldState>>doOneSubCycleFor:
PasteUpMorph>>doOneSubCycle
MenuMorph>>invokeModalAt:in:allowKeyboard:
MenuMorph>>invokeModal:
MenuMorph>>invokeModal
PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
TextMorphForEditView>>mouseDown:
TextMorphForEditView(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TextMorphForEditView(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TransformMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PluggableTextMorphPlus(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PluggableStandardWindow(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess
[] in BlockClosure>>newProcess

--
Cesar Rabak

_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to