Paste: GUI listener error

( scratchpad ) USE: ui.tools.listener listener-window
Invalid array size: 17592186044416
Maximum: 67108863

Type :help for debugging help.
( scratchpad ) :c
(U) Quotation: [ c-to-factor -> ]
    Word: c-to-factor
(U) Quotation: [ swap >c call -> c> drop ]
(U) Quotation: [
        (command-line) parse-command-line
        load-vocab-roots run-user-init "e" get script get or
        [ "e" get ~quotation~ when* script get ~quotation~ when* ]
        [ "run" get run ] if -> output-stream get
        [ stream-flush ] when* 0 exit
    ]
(O) Word: listener
(O) Word: (listener)
(U) Quotation: [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call datastack ] dip -> swap [ set-datastack ] dip
    ]
(U) Quotation: [ call -> datastack ]
(O) Method: M\ gtk-ui-backend (with-ui)
(O) Word: start-ui
(U) Quotation: [ listener-window* -> drop ]
(O) Word: open-world-window
(O) Word: pref-dim
(O) Method: M\ track pref-dim*
(O) Word: track-pref-dims-1
(O) Word: pref-dims
(O) Word: pref-dim
(O) Method: M\ pango-renderer string-dim
(O) Method: M\ pango-renderer string-dim
(O) Word: cached-layout
(O) Word: <layout>
(O) Word: draw-layout
(O) Word: <bitmap-image>
(O) Word: memory>byte-array
(U) Quotation: [
        B{
            112 114 105 109 105 116 105 118 101 95 117 110 105 110
            105 116 105 97 108 105 122 101 100 95 98 121 116 101 95
            97 114 114 97 121 0
        } do-primitive ->
    ]
    Word: (byte-array)
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]