diff --git a/collects/ffi/unsafe/com.rkt b/collects/ffi/unsafe/com.rkt
index 190ed51e23..b5769a3e0c 100644
--- a/collects/ffi/unsafe/com.rkt
+++ b/collects/ffi/unsafe/com.rkt
@@ -641,7 +641,7 @@
            set-com-object-sink!)
      (when (positive? (hash-count (com-object-types obj)))
        (for ([td (in-hash-values (com-object-types obj))])
-	 '(release-type-desc td))
+	 (release-type-desc td))
        (set-com-object-types! obj (make-hash))))))
 
 (define (release-type-desc td)