diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 2360eba4..a2472892 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1153,6 +1153,8 @@ WARNING: printf is rebound in the body of the unit to always
                      (values s/c 1))])))
             
             (define (in-close-proc)
+              (printf "closed port\n")
+              (car)
               (void))
             
             (define (make-write-bytes-proc style)