From c86ee5b6e20715d2172303ac2c313b16d0c79fdb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 19 Jul 2012 18:59:38 -0600
Subject: [PATCH] ffi/com: fix an internal cast

Merge to v5.3
---
 collects/ffi/unsafe/com.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/ffi/unsafe/com.rkt b/collects/ffi/unsafe/com.rkt
index 53c02b2ba8..ed9eec278f 100644
--- a/collects/ffi/unsafe/com.rkt
+++ b/collects/ffi/unsafe/com.rkt
@@ -1779,7 +1779,7 @@
            (define method-result
              (if (= inv-kind INVOKE_PROPERTYPUT)
                  #f
-                 (cast (malloc 'atomic _VARIANT) _pointer _VARIANT-pointer)))
+                 (cast (malloc 'atomic _VARIANT) _pointer (_gcable _VARIANT-pointer))))
            (when method-result
              (VariantInit method-result))
 	   (define-values (hr exn-info error-index)