Paste: giant string in UI on windows

Error in thread 18 (UI update, [ self ui-thread set-global update-ui-loop ]):

ole32-error instance
code    -2147024888
message "Not enough storage is available to process this command."

[ call -> stop ]
update-ui-loop
update-ui
layout-queued
layout
M\ scroller layout*
M\ frame layout*
<frame-layout>
<grid-layout>
<cell>
pref-dim
pref-dim
M\ track pref-dim*
track-pref-dims-1
pref-dims
pref-dim
M\ track pref-dim*
track-pref-dims-1
pref-dims
pref-dim
M\ editor pref-dim*
M\ array text-dim
M\ uniscribe-renderer string-dim
cached-script-string
<script-string>
make-script-string-image
ole32-error
M\ object throw
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]