diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 26bfea9a13..c17bccf064 100755
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@@ -8,7 +8,7 @@ calendar.format accessors sets hashtables ;
 IN: smtp
 
 SYMBOL: smtp-domain
-SYMBOL: smtp-server     "localhost" "smtp" <inet> smtp-server set-global
+SYMBOL: smtp-server     "localhost" 25 <inet> smtp-server set-global
 SYMBOL: smtp-read-timeout    1 minutes smtp-read-timeout set-global
 SYMBOL: esmtp?           t esmtp? set-global
 
diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index 6207b5beb1..dc45670aab 100755
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -337,7 +337,7 @@ HELP: if-empty
 { $values { "seq" sequence } { "quot1" quotation } { "quot2" quotation } }
 { $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped and " { $snippet "quot1" } " is called. Otherwise, if the sequence has any elements, " { $snippet "quot2" } " is called on it." }
 { $example
-    "USING: kernel prettyprint sequences sequences.lib ;"
+    "USING: kernel prettyprint sequences ;"
     "{ 1 2 3 } [ \"empty sequence\" ] [ sum ] if-empty ."
     "6"
 } ;