innerHTmL problems. Not synchronous?

wv-window.rkt

@@ -111,6 +111,7 @@
                              (if (string? js-type)
                                  (string->symbol (string-downcase js-type))
                                  'unknown)))
+              )
             )
           (let ((cl (cond
                       ((eq? type 'text) wv-input/text%)