From f4b07e964049855d1e766a667b32f49a0fa19e75 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 27 Apr 2010 14:22:51 -0600
Subject: [PATCH] fix missing 2 arg case of
 sch_default_global_port_print_handler

---
 src/racket/src/portfun.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/portfun.c b/src/racket/src/portfun.c
index 0af7d0f1a4..e0dcf9f082 100644
--- a/src/racket/src/portfun.c
+++ b/src/racket/src/portfun.c
@@ -3701,7 +3701,12 @@ static Scheme_Object *sch_default_global_port_print_handler(int argc, Scheme_Obj
     scheme_wrong_type("default-global-port-print-handler", "non-negative exact integer", 
                       2, argc, argv);
 
-  scheme_internal_print(argv[0], argv[1], argv[2]);
+  if (argc == 2) {
+    scheme_internal_print(argv[0], argv[1], scheme_make_integer(0));
+  }
+  else {
+    scheme_internal_print(argv[0], argv[1], argv[2]);
+  }
 
   return scheme_void;
 }