diff --git a/collects/frtime/frp-snip.ss b/collects/frtime/frp-snip.ss
index 4c91b0b854..896cbc523a 100644
--- a/collects/frtime/frp-snip.ss
+++ b/collects/frtime/frp-snip.ss
@@ -170,6 +170,8 @@
          (make-object string-snip% "<undefined>")
          )
          ]
+      [(event? beh)
+       (make-object value-snip% beh)]
       [(or (behavior? beh) (any-nested-reactivity? beh))
        (make-object dynamic-snip% (raise-reactivity beh) super-render-fun)]
       [(signal? beh)
diff --git a/collects/frtime/mzscheme-core.ss b/collects/frtime/mzscheme-core.ss
index 28427c1930..682d439e8b 100644
--- a/collects/frtime/mzscheme-core.ss
+++ b/collects/frtime/mzscheme-core.ss
@@ -150,7 +150,8 @@
                result)))]
       ; won't work in the presence of super structs or immutable fields
       [(struct? obj)
-       (let*-values ([(info skipped) (struct-info obj)]
+       obj
+       #;(let*-values ([(info skipped) (struct-info obj)]
                      [(name init-k auto-k acc mut! immut sup skipped?) (struct-type-info info)]
                      [(ctor) (struct-type-make-constructor info)]
                      [(indices) (build-list init-k identity)]