VW7.9.1 64bit fails to save after loading JUN

Launch virgin visual64.im
Load JUN that is in contributed folder.
Cllick Yes when prompted to save.
Exception.

Unhandled exception: Invalid load policy
optimized [] in GenericException>>outer
BlockClosure>>ensure:
SnapshotError(GenericException)>>outer
optimized [] in Snapshot>>tryToSnapshot
BlockClosure>>cull:
SnapshotError(GenericException)>>performHandler:
SnapshotError(GenericException)>>propagatePrivateFrom:
SnapshotError(GenericException)>>propagateFrom:
SnapshotError(GenericException)>>propagate
SnapshotError(GenericException)>>raiseSignal
SnapshotError class(GenericException class)>>raiseErrorString:
NTFSFilename(Filename)>>snapshot:
optimized [] in Snapshot>>tryToSnapshot
BlockClosure>>on:do:
Snapshot>>tryToSnapshot
Snapshot>>privateSnapshot
optimized [] in [] in JunSystem class>>clearSnapshot
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in JunSystem class>>clearSnapshot
BlockClosure>>ensure:
Snapshot class>>withSnapshot:do:
JunSystem class>>clearSnapshot
JunSystem class>>condenseChangesAndPermSaveImage:
JunSystem class>>condenseChangesAndPermSaveImage
optimized [] in JunSystem class>>install
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
optimized [] in GenericException>>outer
Receiver:
        an UndefinedObject
Temporaries:
        .self = a SnapshotError
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in GenericException>>outer
        outerContext = nil
        copiedValues = a SnapshotError
Arguments:
        aBlock = BlockClosure [] in GenericException>>outer
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
SnapshotError(GenericException)>>outer
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Temporaries:
        oldInitial = NTFSFilename(Filename)>>snapshot:
        oldProceed = nil
Context PC = 31

----------------------------------------------------------------------
optimized [] in Snapshot>>tryToSnapshot
Receiver:
        an UndefinedObject
Arguments:
        ex = a SnapshotError
Temporaries:
        .self = a Snapshot
Context PC = 11

----------------------------------------------------------------------
BlockClosure>>cull:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in Snapshot>>tryToSnapshot
        outerContext = nil
        copiedValues = a Snapshot
Arguments:
        anObject = a SnapshotError
Context PC = 15

----------------------------------------------------------------------
SnapshotError(GenericException)>>performHandler:
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Arguments:
        aContext = BlockClosure>>on:do:
Temporaries:
        result = nil
        oldHandler = BlockClosure>>on:do:
Context PC = 40

----------------------------------------------------------------------
SnapshotError(GenericException)>>propagatePrivateFrom:
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Arguments:
        aContext = NTFSFilename(Filename)>>snapshot:
Temporaries:
        handler = BlockClosure>>on:do:
Context PC = 13

----------------------------------------------------------------------
SnapshotError(GenericException)>>propagateFrom:
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Arguments:
        startContext = NTFSFilename(Filename)>>snapshot:
Context PC = 9

----------------------------------------------------------------------
SnapshotError(GenericException)>>propagate
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Context PC = 5

----------------------------------------------------------------------
SnapshotError(GenericException)>>raiseSignal
Receiver:
        a SnapshotError
Instance Variables:
        messageText = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
        originator = a NTFSFilename('c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im')
        initialContext = optimized [] in GenericException>>outer
        firstUnwindContext = BlockClosure>>ensure:
        handlerContext = nil
        parameter = nil
        proceedBlock = nil
        isResumable = false
        signal = nil
        searchContext = optimized [] in GenericException>>outer
Context PC = 16

----------------------------------------------------------------------
SnapshotError class(GenericException class)>>raiseErrorString:
Receiver:
        a SnapshotError class
Instance Variables:
        superclass = Error
        methodDict = a MethodDictionary[0]
        format = 16394
        subclasses = nil
        instanceVariables = nil
        organization =
        name = #SnapshotError
        classPool = nil
        environment = a NameSpace[261]
        notifierString = an UserMessage('Snapshot primitive failed', #snapShotFailed, #dialogs)
Arguments:
        aStringOrValuable = an UserMessage('Invalid load policy', #errLoadPolicy, #dialogs)
Context PC = 23

----------------------------------------------------------------------
NTFSFilename(Filename)>>snapshot:
Receiver:
        a NTFSFilename
Instance Variables:
        osName = a ByteArray[118]
        publicName = 'c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun.im'
        logicalName = nil
Arguments:
        loadPolicy = 1
Temporaries:
        errCode = a SystemError(#'bad argument',nil)
Context PC = 68

----------------------------------------------------------------------
optimized [] in Snapshot>>tryToSnapshot
Receiver:
        an UndefinedObject
Temporaries:
        .self = a Snapshot
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in Snapshot>>tryToSnapshot
        outerContext = nil
        copiedValues = a Snapshot
Arguments:
        anExceptionSelector = Error
        handlerBlock = BlockClosure [] in Snapshot>>tryToSnapshot
Context PC = 18

----------------------------------------------------------------------
Snapshot>>tryToSnapshot
Receiver:
        a Snapshot
Instance Variables:
        loadPolicy = 1
        quitAfterwards = false
        imagePrefix = 'c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun'
        originalPriority = 50
Context PC = 12

----------------------------------------------------------------------
Snapshot>>privateSnapshot
Receiver:
        a Snapshot
Instance Variables:
        loadPolicy = 1
        quitAfterwards = false
        imagePrefix = 'c:\askoh\visualworks\vw7.9.1\askoh\64bit\jun\current\jun'
        originalPriority = 50
Temporaries:
        justSnapped = nil
Context PC = 7

----------------------------------------------------------------------
optimized [] in [] in JunSystem class>>clearSnapshot
Receiver:
        an UndefinedObject
Temporaries:
        .aSnapshot = a Snapshot
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in JunSystem class>>clearSnapshot
        outerContext = nil
        copiedValues = a Snapshot
Arguments:
        aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 5
        image = Depth1Image(extent: 16 @ 16 depth: 1)
        mask = Depth1Image(extent: 16 @ 16 depth: 1)
        hotSpot = 0 @ 0
        name = 'wait'
Arguments:
        aBlock = BlockClosure [] in [] in JunSystem class>>clearSnapshot
Temporaries:
        oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
optimized [] in JunSystem class>>clearSnapshot
Receiver:
        an UndefinedObject
Temporaries:
        .aSnapshot = a Snapshot
        setUpForSnapshot = BlockClosure [] in [] in JunSystem class>>clearSnapshot
        logSnapshot = BlockClosure [] in [] in JunSystem class>>clearSnapshot
Context PC = 35

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in JunSystem class>>clearSnapshot
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        aBlock = BlockClosure [] in Snapshot class>>withSnapshot:do:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Snapshot class>>withSnapshot:do:
Receiver:
        a Snapshot class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[28]
        format = 16388
        subclasses = nil
        instanceVariables = an Array[4]
        organization = ('initialize/release' #initialize)
('accessing' #changesFilename #imageFilename #imagePrefix: #isAboutToQuit #loadPolicy #loadPolicy: #loadPolicyNormal #loadPolicyPermSave #loadPolicyPermUndo #quitAfterwards:)
('user interaction' #getImagePrefix #imageFilenameForUI #imagePrefixForUI #saveDialogThenQuit:)
('private-saving' #logSnapshot #postSnapshotBootstrap #postSnapshotStillRunning #preSnapshot #privateSnapshot #quitImage #setUpForSnapshot #tryToSnapshot #verifyWritability)
('signalling' #signalSystemEvent:)
('saving' #saveAs:thenQuit: #saveDetachedTo:thenQuit: #snapshot)

        name = #Snapshot
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[261]
        current = a Snapshot
Arguments:
        aSnapshot = a Snapshot
        aBlock = BlockClosure [] in JunSystem class>>clearSnapshot
Context PC = 10

----------------------------------------------------------------------
JunSystem class>>clearSnapshot
Receiver:
        a JunSystem class
Instance Variables:
        superclass = Model
        methodDict = a MethodDictionary[1]
        format = 16385
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('updating' #update:)

        name = #JunSystem
        classPool = a NameSpaceOfClass[4]
        environment = a NameSpace[1019]
        soleSystem = a JunSystem
Temporaries:
        aSnapshot = a Snapshot
        setUpForSnapshot = BlockClosure [] in [] in JunSystem class>>clearSnapshot
        logSnapshot = BlockClosure [] in [] in JunSystem class>>clearSnapshot
Context PC = 16

----------------------------------------------------------------------
JunSystem class>>condenseChangesAndPermSaveImage:
Receiver:
        a JunSystem class
Instance Variables:
        superclass = Model
        methodDict = a MethodDictionary[1]
        format = 16385
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('updating' #update:)

        name = #JunSystem
        classPool = a NameSpaceOfClass[4]
        environment = a NameSpace[1019]
        soleSystem = a JunSystem
Arguments:
        aBoolean = true
Context PC = 18

----------------------------------------------------------------------
JunSystem class>>condenseChangesAndPermSaveImage
Receiver:
        a JunSystem class
Instance Variables:
        superclass = Model
        methodDict = a MethodDictionary[1]
        format = 16385
        subclasses = nil
        instanceVariables = an Array[0]
        organization = ('updating' #update:)

        name = #JunSystem
        classPool = a NameSpaceOfClass[4]
        environment = a NameSpace[1019]
        soleSystem = a JunSystem
Context PC = 5

----------------------------------------------------------------------
optimized [] in JunSystem class>>install
Receiver:
        an UndefinedObject
Temporaries:
        .self = JunSystem
        .iamJunSystem = true
        .itsFromParcel = true
Context PC = 86

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in JunSystem class>>install
        outerContext = nil
        copiedValues = an Array[3]
Arguments:
        anExceptionSelector = TerminateException
        handlerBlock = BlockClosure [] in [] in Process class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in JunSystem class>>install
Context PC = 9

That looks like you tried to perm-save a 64 bit image.  64 bit VMs do
not fully support perm space yet.  Try saving the image without perm space.

On 12/12/2012 4:32 AM, askoh wrote: _______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

You are right. Thanks.
Aik-Siong Koh