diff --git a/extra/imap/imap.factor b/extra/imap/imap.factor
index dba00786e1..7fd0ab86eb 100644
--- a/extra/imap/imap.factor
+++ b/extra/imap/imap.factor
@@ -32,6 +32,8 @@ CONSTANT: IMAP4_SSL_PORT 993
         read-hms " " expect readln parse-rfc822-gmt-offset <timestamp>
     ] with-string-reader  ;
 
+<PRIVATE
+
 : >utf7imap4 ( str -- str' )
     utf7imap4 encode >string ;
 
@@ -100,6 +102,8 @@ CONSTANT: IMAP4_SSL_PORT 993
         first 1 tail values first2 [ " " split ] dip string>number swap 2array
     ] map ;
 
+PRIVATE>
+
 ! Constructor
 : <imap4ssl> ( host -- imap4 )
     IMAP4_SSL_PORT <inet> <secure> binary <client> drop