diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index 5a2ef58b79..cff92eccd5 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -307,7 +307,12 @@
                null)
          ,@(if (null? captures)
                null
-               `('(captures: ,@captures)))
+               `('(captures: ,@(map (lambda (c t)
+                                      (if (eq? t 'flonum)
+                                          `(flonum ,c)
+                                          c))
+                                    captures
+                                    closure-types))))
          ,(decompile-expr body globs
                           (append captures
                                   (append vars rest-vars))