Why won't this wrap the text?

nowrap.rkt

#lang racket/base

(require embedded-gui
         framework
         racket/class
         racket/gui)

(define lorem #<<TEXT
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Curabitur eu metus non sem dapibus interdum. Nunc accumsan porttitor leo, a posuere dolor luctus quis. Suspendisse potenti. Morbi mattis nibh quis sem placerat, nec eleifend sem venenatis. Donec blandit ac velit a vulputate. Integer ex mauris, eleifend a velit quis, pharetra dictum risus. Phasellus imperdiet nunc ut metus blandit sagittis. Suspendisse potenti. Nam in ultricies leo. Fusce non euismod risus. Morbi iaculis erat vel massa aliquet, in ultricies lacus condimentum. Nullam placerat quam leo, faucibus interdum tellus aliquet sit amet. Curabitur ut vestibulum mauris. Donec posuere mi at eros egestas tristique. Nullam non mauris a eros finibus aliquam dapibus eu quam. Duis id lacus odio.

Duis sed tellus id felis viverra pulvinar eu bibendum tellus. Suspendisse dignissim in velit ut ornare. Sed tellus turpis, scelerisque vitae mollis vitae, faucibus et elit. Integer luctus nisl lorem, ut ultrices tellus malesuada ac. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia curae; Nam nunc quam, euismod sed vestibulum at, volutpat dictum dolor. In in vulputate odio, ut condimentum eros. Praesent dignissim quam ut ultricies bibendum. Aliquam sem magna, varius id mattis ac, auctor a lacus. 
TEXT
  )

(define f
  (new frame%
       [label "a window"]
       [width 400]
       [height 400]))
(send f show #t)

(define pb (new aligned-pasteboard%))

(define valign
  (new vertical-alignment% [parent pb]))
(define canvas
  (new editor-canvas%
       [parent f]
       [editor pb]))

(define tb (new text% [auto-wrap #t]))
(send tb insert lorem 0)
(define w
  (new snip-wrapper%
       [parent valign]
       [snip (new stretchable-editor-snip%
                  [stretchable-width #f]
                  [editor tb])]))