diff --git a/racket/src/cs/io.sls b/racket/src/cs/io.sls
index 95a3e3ebc8..857bb94e35 100644
--- a/racket/src/cs/io.sls
+++ b/racket/src/cs/io.sls
@@ -198,7 +198,8 @@
       (ftype-ref rktio_length_and_addrinfo_t (len) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0))
 
     (define (rktio_recv_address_ref fs)
-      (ftype-ref rktio_length_and_addrinfo_t (address) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0))
+      (make-ptr
+       (ftype-ref rktio_length_and_addrinfo_t (address) (make-ftype-pointer rktio_length_and_addrinfo_t (ptr->address fs)) 0)))
 
     (define (rktio_identity_to_vector p)
       (let ([p (make-ftype-pointer rktio_identity_t (ptr->address p))])