diff --git a/racket/src/cify/prune.rkt b/racket/src/cify/prune.rkt
index 1edb5ae7ef..9ae9867f08 100644
--- a/racket/src/cify/prune.rkt
+++ b/racket/src/cify/prune.rkt
@@ -82,6 +82,6 @@
 
   (find-candidate-ids! e)
   (for ([ex (in-list exports)])
-    (hash-remove! candidate-ids (cadr ex)))
+    (hash-remove! candidate-ids (car ex)))
   (find! e)
   (prune e))