diff --git a/wv-window.rkt b/wv-window.rkt
index 98b471c..39ab214 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -105,11 +105,12 @@
                                               "    }"
                                               "  }\n"
                                               "}")
-                                             id))))
+                                             id)))
               (set! type (if (eq? js-type #f)
+                             #f
                              (if (= js-type -1)
                                  'unknown
-                                 (string->symbol (string-downcase js-type)))))
+                                 (string->symbol (string-downcase js-type))))))
             (let ((cl (cond
                         ((eq? type 'text) wv-input/text%)
                         ((eq? type 'date) wv-input/date%)