diff --git a/basis/smtp/smtp-docs.factor b/basis/smtp/smtp-docs.factor
index 618cf5f836..e30b3fcc27 100644
--- a/basis/smtp/smtp-docs.factor
+++ b/basis/smtp/smtp-docs.factor
@@ -23,7 +23,8 @@ HELP: send-email
 { $description "Sends an " { $link email } " object to an STMP server stored in the " { $link smtp-server } " variable.  The required slots are " { $snippet "from" } " and " { $snippet "to" } "." }
 
 { $examples
-    { $example "<email>"
+    { $unchecked-example "USING: accessors smtp ;"
+    "<email>"
     "    \"groucho@marx.bros\" >>from"
     "    { \"chico@marx.bros\" \"harpo@marx.bros\" } >>to"
     "    { \"gummo@marx.bros\" } >>cc"
diff --git a/basis/smtp/smtp-tests.factor b/basis/smtp/smtp-tests.factor
index 7cc0e7efbb..f8b321fdac 100755
--- a/basis/smtp/smtp-tests.factor
+++ b/basis/smtp/smtp-tests.factor
@@ -1,6 +1,6 @@
 USING: smtp tools.test io.streams.string io.sockets threads
 smtp.server kernel sequences namespaces logging accessors
-assocs sorting ;
+assocs sorting smtp.private ;
 IN: smtp.tests
 
 { 0 0 } [ [ ] with-smtp-connection ] must-infer-as