diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss
index 2bba9355aa..ebe57fd76a 100644
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@@ -1703,7 +1703,12 @@
              (cpointer->name proc-p))))]
        [else
         (lambda (to-wrap)
-          (let* ([proc-p (unwrap-cpointer 'ffi-call to-wrap)])
+          (let* ([proc-p (unwrap-cpointer 'ffi-call to-wrap)]
+                 #;
+                 [name (and (ffi-obj? proc-p) (let ([n (cpointer/ffi-obj-name proc-p)])
+                                                (if (bytes? n)
+                                                    (utf8->string n)
+                                                    n)))])
             (do-procedure-reduce-arity-mask
              (lambda orig-args
                (let* ([args (map (lambda (orig-arg in-type)
diff --git a/racket/src/io/network/tcp-listen.rkt b/racket/src/io/network/tcp-listen.rkt
index bc9b4807e8..4f3b2a2da5 100644
--- a/racket/src/io/network/tcp-listen.rkt
+++ b/racket/src/io/network/tcp-listen.rkt
@@ -41,6 +41,8 @@
       ;; or might return a listener
       (call-with-resolved-address
        hostname port-no
+       #:family family
+       #:passive? #t
        ;; in atomic mode
        (lambda (addr)
          (cond