diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss
index c5da59a..e96f5b5 100644
--- a/collects/net/imap-unit.ss
+++ b/collects/net/imap-unit.ss
@@ -552,7 +552,6 @@
                                  [bytes-name (if (symbol? name)
                                                  (string->bytes/utf-8 (symbol->string name))
                                                  name)])
-                            (printf "~s\n" (list 'bytes=? bytes-name except))
                             (unless (and except
 					 (bytes=? bytes-name except))
 			      (set! sub-folders