Paste: Windows intermittent bootstrap error

Loading resource:basis/random/random.factor
Loading resource:basis/random/windows/windows.factor
Loading resource:basis/windows/advapi32/advapi32.factor
Loading resource:basis/random/mersenne-twister/mersenne-twister.factor
Loading vocab:bootstrap/bootstrap-error.factor
(U) Quotation: [ c-to-factor -> ]
    Word: c-to-factor
(U) Quotation: [
        2dup [
            ~quotation~ dip
            dup terminated?>> ~quotation~ ~quotation~ if
        ] 2dip -> rot [ 2drop ] [ wrong-values ] if
    ]
    Word: call-effect
(U) Quotation: [
        [ ~quotation~ dip dip ] dip -> dup terminated?>>
        [ 2drop f ]
        [ dup in>> length swap out>> length check-datastack ] if
    ]
(U) Quotation: [ swap [ call ] dip -> ]
    Word: dip
(U) Quotation: [ swap >c call -> c> drop ]
(U) Quotation: [
        nano-count default-image-name "output-image" set-global
        "math compiler threads help io tools ui ui.tools unicode handbook"
        "include" set-global "" "exclude" set-global
        strip-encodings (command-line) parse-command-line os wince?
        [ "windows.ce" require ] when os winnt?
        [ "windows.nt" require ] when
        "staging" get "deploy-vocab" get or
        [ "stage2: deployment mode" print ]
        [ "debugger" require "listener" require "none" require ] if
        load-components -> nano-count over -
        core-bootstrap-time set-global
        run-bootstrap-init f error set-global
        f original-error set-global f error-continuation set-global
        nano-count swap - bootstrap-time set-global
        print-report "deploy-vocab" get
        [ "tools.deploy.shaker" run ] [
            "staging" get ~quotation~ ~quotation~ if
            "output-image" get save-image-and-exit
        ] if
    ]
(U) Quotation: [ iterate-step -> iterate-next (each-integer) ]
(U) Quotation: [ swap [ 2dip ] dip -> ]
    Word: 3dip
(U) Quotation: [ swap [ dip ] dip -> ]
    Word: 2dip
(U) Quotation: [ swap [ call ] dip -> ]
    Word: dip
(O) Word: require
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(U) Quotation: [
        {
            "editors"
            "inspector"
            "bootstrap.image"
            "see"
            "tools.annotations"
            "tools.crossref"
            "tools.errors"
            "tools.deploy"
            "tools.destructors"
            "tools.disassembler"
            "tools.dispatch"
            "tools.memory"
            "tools.profiler"
            "tools.test"
            "tools.time"
            "tools.threads"
            "tools.deprecation"
            "vocabs.hierarchy"
            "vocabs.refresh"
            "vocabs.refresh.monitor"
        } [ require ] each -> { ~array~ ~array~ } cond
    ]
(U) Quotation: [ iterate-step -> iterate-next (each-integer) ]
(U) Quotation: [ swap [ 2dip ] dip -> ]
    Word: 3dip
(U) Quotation: [ swap [ dip ] dip -> ]
    Word: 2dip
(U) Quotation: [ swap [ call ] dip -> ]
    Word: dip
(O) Word: require
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: parse-file
(O) Word: parse-stream
(O) Word: parse-fresh
(O) Word: (parse-lines)
(O) Word: (parse-until)
(O) Word: parse-step
(O) Word: execute-parsing
(O) Word: POSTPONE: USING:
(O) Word: use-vocab
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: parse-file
(O) Word: parse-stream
(O) Word: parse-fresh
(O) Word: (parse-lines)
(O) Word: (parse-until)
(O) Word: parse-step
(O) Word: execute-parsing
(O) Word: POSTPONE: USING:
(O) Word: use-vocab
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: parse-file
(O) Word: parse-stream
(O) Word: parse-fresh
(O) Word: (parse-lines)
(O) Word: (parse-until)
(O) Word: parse-step
(O) Word: execute-parsing
(O) Word: POSTPONE: USING:
(O) Word: use-vocab
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: require
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: parse-file
(O) Word: parse-stream
(O) Word: parse-fresh
(O) Word: (parse-lines)
(O) Word: (parse-until)
(O) Word: parse-step
(O) Word: execute-parsing
(O) Word: POSTPONE: USING:
(O) Word: use-vocab
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: require
(O) Method: M\ vocab (load-vocab)
(O) Word: load-source
(O) Word: add-startup-hook
(U) Quotation: [ default-mersenne-twister -> random-generator set-global ]
(O) Word: default-mersenne-twister
(O) Word: random-integer
(O) Method: M\ windows-rng random-bytes*
(O) Word: windows-crypto-context
(O) Word: attempt-crypto-context
(U) Quotation: [
        -> B{
            112 114 105 109 105 116 105 118 101 95 97 108 105 101
            110 95 99 101 108 108 0
        } do-primitive
    ]
    Word: alien-cell
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
resource:basis/tools/deploy/deploy.factor

3: USING: tools.deploy.backend system vocabs vocabs.loader kernel
                              ^
resource:basis/tools/deploy/backend/backend.factor

3: USING: namespaces make continuations.private kernel.private init
8: io.directories.hierarchy io.backend quotations io.launcher
                                                             ^
resource:basis/io/launcher/launcher.factor

3: USING: system kernel namespaces strings hashtables sequences assocs
6: io.backend io.timeouts io.pipes io.pipes.private io.encodings
                                  ^
resource:basis/io/pipes/windows/nt/nt.factor

3: USING: alien alien.c-types arrays destructors io io.backend.windows libc
6: random combinators accessors io.pipes io.ports literals ;
         ^
Type check error
Object: 1
Object type: fixnum
Expected type: alien

The following restarts are available:

:1      Load resource:basis/io/pipes/windows/nt/nt.factor again
:2      Load resource:basis/io/launcher/launcher.factor again
:3      Load resource:basis/tools/deploy/backend/backend.factor again
4 :res  Load resource:basis/tools/deploy/deploy.factor again
( scratchpad )