diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss
index e96f5b5..dd6e3f1 100644
--- a/collects/net/imap-unit.ss
+++ b/collects/net/imap-unit.ss
@@ -233,6 +233,7 @@
 	      (set-imap-recent! imap (car i))]
 	     [(tag-eq? (cadr i) 'EXPUNGE)
 	      (let ([n (car i)])
+		(log "Recording expunge: ~s~n" n)
 		;; add it to the tree of expunges
 		(expunge-insert! (imap-expunges imap) n)
 		;; decrement exists count: