This is a old problem.
If you put  a TTSampleStringMorph inside a PasteUp Morph and save as morph,
later load as project give the following.


18 November 2002 10:10:29 am

VM: Mac OS - Squeak3.4alpha of '11 November 2002' [latest update: #5109]
Image: Squeak3.4alpha [latest update: #5108]

MatrixTransform2x3(Object)>>doesNotUnderstand:
    Receiver: MatrixTransform2x3(
1.0    0.0    0.0
0.0    1.0    0.0
)
    Arguments and temporary variables:
        aMessage:     a Message with selector: #restoreEndianness and
arguments: #()
    Receiver's instance variables:
MatrixTransform2x3(
1.0    0.0    0.0
0.0    1.0    0.0
)

StandardFileStream>>nextWordsInto:
    Receiver: StandardFileStream: 'Argos:Programacion:Smalltalk:Squeak:Big
Endian Surprise.project'
    Arguments and temporary variables:
        aBitmap:     MatrixTransform2x3(
1.0    0.0    0.0
0.0    1.0    0.0
)
    Receiver's instance variables:


MatrixTransform2x3 class>>newFromStream:
    Receiver: MatrixTransform2x3
    Arguments and temporary variables:
        s:     StandardFileStream: 'Argos:Programacion:Smalltalk:Squeak:Big
Endian Surprise...etc...
    Receiver's instance variables:
        superclass:     DisplayTransform
        methodDict:     a MethodDictionary(#=->a CompiledMethod (1956)
#a11->a CompiledMeth...etc...
        format:     770
        instanceVariables:     nil
        organization:     ('initialize' setIdentiy)
('accessing' at: at:put: inverseTransfo...etc...
        subclasses:     nil
        name:     #MatrixTransform2x3
        classPool:     nil
        sharedPools:     nil
        environment:     nil
        category:     nil

SmartRefStream(DataStream)>>readWordLike
    Receiver: a SmartRefStream
    Arguments and temporary variables:
        refPosn:     38456
        aSymbol:     #MatrixTransform2x3
        newClass:     MatrixTransform2x3
        anObject:     nil
    Receiver's instance variables:
        byteStream:     StandardFileStream:
'Argos:Programacion:Smalltalk:Squeak:Big Endian...etc...
        topCall:     #marked
        basePos:     161
        references:     an IdentityDictionary()
        objects:     an IdentityDictionary(5->#('class structure' a
Dictionary(#Array->#(0)...etc...
        currentReference:     38456
        fwdRefEnds:     an IdentityDictionary()
        blockers:     an IdentityDictionary()
        skipping:     an IdentitySet()
        insideASegment:     false
        structures:     a Dictionary(#Array->#(0) #ArrayedCollection->#(0)
#Association->#(...etc...
        steady:     a Set(Color MatrixTransform2x3 PasteUpMorph Integer
Symbol TTGlyph Stri...etc...
        reshaped:     nil
        renamed:     a Dictionary(#FlasherMorph->#Flasher )
        renamedConv:     a Dictionary()
        superclasses:     a Dictionary(#Array->#ArrayedCollection
#ArrayedCollection->#Sequ...etc...
        progressBar:     nil
        objCount:     nil
        classInstVars:     nil


--- The full stack ---
MatrixTransform2x3(Object)>>doesNotUnderstand:
StandardFileStream>>nextWordsInto:
MatrixTransform2x3 class>>newFromStream:
SmartRefStream(DataStream)>>readWordLike
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
Association(Object)>>readDataFrom:size:
SmartRefStream>>readInstanceSize:clsname:refPosn:
SmartRefStream>>readShortInst
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
SmartRefStream(DataStream)>>readArray
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
TTCompositeGlyph(Object)>>readDataFrom:size:
SmartRefStream>>readInstanceSize:clsname:refPosn:
SmartRefStream>>readShortInst
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
SmartRefStream(DataStream)>>readArray
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
TTFontDescription(Object)>>readDataFrom:size:
SmartRefStream>>readInstanceSize:clsname:refPosn:
SmartRefStream>>readShortInst
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
TTSampleStringMorph(Object)>>readDataFrom:size:
SmartRefStream>>readInstanceSize:clsname:refPosn:
SmartRefStream>>readShortInst
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
SmartRefStream(DataStream)>>readArray
SmartRefStream(DataStream)>>next
SmartRefStream(ReferenceStream)>>next
SmartRefStream>>next
PasteUpMorph(Object)>>readDataFrom:size:
SmartRefStream>>readInstanceSize:clsname:refPosn:
SmartRefStream>>readShortInst
SmartRefStream(DataStream)>>next
...etc...


I notify this a long time ago and thanks Ned advice fix on Mac but not on
Windows.

Now , I resume the facts.

In a fresh Squeak3.2-4956.image , the problem shows, but if you start a new
prpject and save that project (.pr in Squaklets ), no problem at all.

In a fresh Squeak3.4a-5108.image, the problem is worst, you can¹t save the
project (.pr)

If you load the .pr saved from Squeak3.2-4956.image , not problem at all


Hope this is useful to fix this.

I like improve my MorphicCards for send to Squeakers .

Edgar 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20021118/4f1af2b5/attachment-0001.htm