Hi list,
I´m working on Visual Works, and when a change the persistecy policy for PRImagePersistency and send #start, works. But when I add or remove a page the system crash. If I put PRNullPersistency again there is no problems.
Here is the stack:

BlockClosure [] in Object>>doesNotUnderstand:

optimized [] in Magritte.MAComponentRenderer>>hasError:

self BlockClosure [] in Magritte.MAComponentRenderer>>hasError:

temps

each a MessageNotUnderstood

self a Magritte.MATableRenderer

inst vars

method CompiledBlock [] in Magritte.MAComponentRenderer>>hasError:

outerContext nil

copiedValues a Magritte.MATableRenderer

OrderedCollection>>do:

self OrderedCollection (a MessageNotUnderstood)

temps

aBlock BlockClosure [] in Magritte.MAComponentRenderer>>hasError:

index 1

inst vars

firstIndex 1

lastIndex 1

Magritte.MATableRenderer(Magritte.MAComponentRenderer)>>hasError:

self a Magritte.MATableRenderer

temps

aDescription a Magritte.MAPriorityContainer label: 'Add' comment: nil

inst vars

component a Magritte.MAContainerComponent

html a Seaside.WARenderCanvas

errors IdentitySet ()

optimized [] in Magritte.MAComponentRenderer>>classFor:

self BlockClosure [] in Magritte.MAComponentRenderer>>classFor:

temps

stream a WriteStream

aDescription a Magritte.MAPriorityContainer label: 'Add' comment: nil

self a Magritte.MATableRenderer

inst vars

method CompiledBlock [] in Magritte.MAComponentRenderer>>classFor:

outerContext nil

copiedValues #(a Magritte.MAPriorityContainer label: 'Add' comment: nil a Magritte.MATableRenderer)

String class(SequenceableCollection class)>>streamContents:

self String

temps

blockWithArg BlockClosure [] in Magritte.MAComponentRenderer>>classFor:

stream a WriteStream

inst vars

superclass CharacterArray

methodDict MethodDictionary (#printOn: #hash #= #storeOn: #isLiteral #isSameXmlAs: #string #indexOfAnyOf:startingAt:ifAbsent: #withSqueakLineEndings #asDateAndTime #copyToHeap:encoding: #stringhash #asMIMEDocumentType: #compare: #asByteString #includesSubstring:caseSensitive: #asInteger #padded:to:with: #endsWith: #skipDelimiters:startingAt: #< #<= #>= #> #isString #includesSubString: #decodeAsLiteralArray #asTimeStamp #runLengthFor: #asParagraph #asText #lines #sunitMatch: #+ #caseInsensitiveLessOrEqual: #getEnclosedExpressionFrom: #asTwoByteString #asDuration #translated #copyToHeapUnicode #asDate #withoutQuoting #withSeparatorsCompacted #fullMetaName #inspectorClass #findTokens: #withBlanksTrimmed #gcCopyToHeapUnicode #sameAs: #gcCopyToHeapEncoding: #capitalized #copyToHeapEncoding: #asWordArray #changeFrom:to:with: #renderOn:indentLevel: #evaluateExpression:parameters: #concreteIndexFor: #copyToHeap: #indexOf:startingAt:ifAbsent: #convertToByteArray #encodeForHTTP #classNameOnly #refersToLiteral: #concreteString #asByteArrayEncoding: #asHexString #sunitSubStrings #prettyPrintHtmlOn:indentLevel: #asFourByteString #namesMetaClass #copyToHeap16Encoding: #trueCompare: #textRepresentation #asCapitalizedPhrase #stringEncoding #format: #isByteIndexed #asByteArray #printHtmlOn: #asClassNameOnly #asMIMEDocument #md5Hash #beginsWith: #asTime #hasChangeOfEmphasis #literalArrayEncoding #withHTMLEscapes #gcCopyToHeap16Encoding: #matches: #findDelimiters:startingAt: #renderOn: #isoToSqueak #indexOfSubCollection:startingAt: #sunitAsSymbol #adaptToString:andSend: #indexOfAnyOf:ifAbsent: #isAllSeparators )...etc...

format 16384

subclasses #(ByteEncodedString TwoByteString Symbol GapString FourByteString)

instanceVariables nil

organization ('accessing' #changeFrom:to:with: #concreteIndexFor: #concreteString #indexOfSubCollection:startingAt: #runLengthFor: #string #stringEncoding) ('converting' #asByteArray #asByteArrayEncoding: #asByteString #asFourByteString #asParagraph #asText #asTwoByteString #asWordArray #convertToByteArray #decodeAsLiteralArray #literalArrayEncoding #withHTMLEscapes) ('comparing' #< #<= #= #> #>= #hash #sameAs:) ('te...etc...

name #String

classPool String asNameSpace

environment Core

Greetings in advance!

self	BlockClosure [] in Magritte.MAComponentRenderer>>hasError:
temps
each	a MessageNotUnderstood
self	a Magritte.MATableRenderer
inst vars
method	CompiledBlock [] in Magritte.MAComponentRenderer>>hasError:
outerContext	nil
copiedValues	a Magritte.MATableRenderer

self	OrderedCollection (a MessageNotUnderstood)
temps
aBlock	BlockClosure [] in Magritte.MAComponentRenderer>>hasError:
index	1
inst vars
firstIndex	1
lastIndex	1

self	String
temps
blockWithArg	BlockClosure [] in Magritte.MAComponentRenderer>>classFor:
stream	a WriteStream
inst vars
superclass	CharacterArray
methodDict	MethodDictionary (#printOn: #hash #= #storeOn: #isLiteral #isSameXmlAs: #string #indexOfAnyOf:startingAt:ifAbsent: #withSqueakLineEndings #asDateAndTime #copyToHeap:encoding: #stringhash #asMIMEDocumentType: #compare: #asByteString #includesSubstring:caseSensitive: #asInteger #padded:to:with: #endsWith: #skipDelimiters:startingAt: #< #<= #>= #> #isString #includesSubString: #decodeAsLiteralArray #asTimeStamp #runLengthFor: #asParagraph #asText #lines #sunitMatch: #+ #caseInsensitiveLessOrEqual: #getEnclosedExpressionFrom: #asTwoByteString #asDuration #translated #copyToHeapUnicode #asDate #withoutQuoting #withSeparatorsCompacted #fullMetaName #inspectorClass #findTokens: #withBlanksTrimmed #gcCopyToHeapUnicode #sameAs: #gcCopyToHeapEncoding: #capitalized #copyToHeapEncoding: #asWordArray #changeFrom:to:with: #renderOn:indentLevel: #evaluateExpression:parameters: #concreteIndexFor: #copyToHeap: #indexOf:startingAt:ifAbsent: #convertToByteArray #encodeForHTTP #classNameOnly #refersToLiteral: #concreteString #asByteArrayEncoding: #asHexString #sunitSubStrings #prettyPrintHtmlOn:indentLevel: #asFourByteString #namesMetaClass #copyToHeap16Encoding: #trueCompare: #textRepresentation #asCapitalizedPhrase #stringEncoding #format: #isByteIndexed #asByteArray #printHtmlOn: #asClassNameOnly #asMIMEDocument #md5Hash #beginsWith: #asTime #hasChangeOfEmphasis #literalArrayEncoding #withHTMLEscapes #gcCopyToHeap16Encoding: #matches: #findDelimiters:startingAt: #renderOn: #isoToSqueak #indexOfSubCollection:startingAt: #sunitAsSymbol #adaptToString:andSend: #indexOfAnyOf:ifAbsent: #isAllSeparators )...etc...
format	16384
subclasses	#(ByteEncodedString TwoByteString Symbol GapString FourByteString)
instanceVariables	nil
organization	('accessing' #changeFrom:to:with: #concreteIndexFor: #concreteString #indexOfSubCollection:startingAt: #runLengthFor: #string #stringEncoding) ('converting' #asByteArray #asByteArrayEncoding: #asByteString #asFourByteString #asParagraph #asText #asTwoByteString #asWordArray #convertToByteArray #decodeAsLiteralArray #literalArrayEncoding #withHTMLEscapes) ('comparing' #< #<= #= #> #>= #hash #sameAs:) ('te...etc...
name	#String
classPool	String asNameSpace
environment	Core