From 68bb2a69731e89802d77ababf6b937c7ec3cd2cc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 8 Oct 2020 06:48:14 -0600
Subject: [PATCH] cs: fix cpointer offset handling for C API
 `racket_cpointer_address`

---
 racket/src/cs/c/boot.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cs/c/boot.c b/racket/src/cs/c/boot.c
index 101eddf2a2..b21afbeb91 100644
--- a/racket/src/cs/c/boot.c
+++ b/racket/src/cs/c/boot.c
@@ -309,7 +309,7 @@ iptr racket_cpointer_offset(ptr cptr) {
   if (Srecordp(cptr)) {
     if (Srecord_type_parent(Srecord_type(cptr)) != Sfalse) {
       /* assume that it's a cpointer+offset */
-      return Sinteger_value(Srecord_uniform_ref(cptr, 1));
+      return Sinteger_value(Srecord_uniform_ref(cptr, 2));
     }
   }