diff --git a/pkgs/racket-test-core/tests/racket/file.rktl b/pkgs/racket-test-core/tests/racket/file.rktl
index 0226e35c37..3a9e12c5a0 100644
--- a/pkgs/racket-test-core/tests/racket/file.rktl
+++ b/pkgs/racket-test-core/tests/racket/file.rktl
@@ -632,6 +632,9 @@
 (let-values ([(r w) (make-pipe #f 'in 'out)])
   (test 'in object-name r)
   (test 'out object-name w))
+(let-values ([(pin pout) (make-pipe 4 'name)])
+  (write-bytes (make-bytes 4) pout)
+  (test #f sync/timeout 0 pout))
 
 (test #t input-port? (make-input-port void void void void))
 (test #t input-port? (make-input-port void void #f void))
diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c
index 736c2d3371..3dbbab6ae9 100644
--- a/racket/src/racket/src/portfun.c
+++ b/racket/src/racket/src/portfun.c
@@ -2157,7 +2157,7 @@ static Scheme_Object *sch_pipe(int argc, Scheme_Object **args)
   Scheme_Object *v[2];
   int bufmax;
 
-  if (argc == 1) {
+  if (argc > 0) {
     Scheme_Object *o = args[0];
     if (SCHEME_FALSEP(o)) {
       bufmax = 0;