diff --git a/pkgs/racket-test-core/tests/racket/print.rktl b/pkgs/racket-test-core/tests/racket/print.rktl
index 7e00ad3f76..be7fce218b 100644
--- a/pkgs/racket-test-core/tests/racket/print.rktl
+++ b/pkgs/racket-test-core/tests/racket/print.rktl
@@ -87,6 +87,7 @@
   (ptest "'#hasheqv((1 . 2))" (make-hasheqv (list (cons 1 2))))
 
   (ptest "(mcons 1 2)" (mcons 1 2))
+  (ptest "(mcons 1 '())" (mcons 1 null))
 
   (ptest "#<a>" (a 1 2))
   (ptest "(b 1 2)" (b 1 2))
diff --git a/racket/src/racket/src/print.c b/racket/src/racket/src/print.c
index 4f55e24fff..12ce78abba 100644
--- a/racket/src/racket/src/print.c
+++ b/racket/src/racket/src/print.c
@@ -3946,7 +3946,7 @@ print_pair(Scheme_Object *pair, int notdisplay, int compact,
     cdr = SCHEME_CDR(cdr);
   }
 
-  if (!SCHEME_NULLP(cdr)) {
+  if (!SCHEME_NULLP(cdr) || (pair_type == -1)) {
     if (!compact) {
       if (notdisplay == 3)
         print_utf8_string(pp, " ", 0, 1);