diff --git a/src/std/net/smtp/README.org b/src/std/net/smtp/README.org
index 159641a72d..4e2d39aef7 100644
--- a/src/std/net/smtp/README.org
+++ b/src/std/net/smtp/README.org
@@ -116,7 +116,7 @@ The easy way to connect and interact with an SMTP server.
 
 #+begin_src scheme :tangle api.ss
   (def (send-mail smtp return-path forward-path . data)
-    (using (smtp :- SMTP)
+    (using (smtp : SMTP)
       (def sredaeh []) ;;(headers interted)
       (def body #f) ;; The body
       (def body? (? (or string? u8vector? procedure?)))
diff --git a/src/std/net/smtp/api.ss b/src/std/net/smtp/api.ss
index 01b513e029..8773214098 100644
--- a/src/std/net/smtp/api.ss
+++ b/src/std/net/smtp/api.ss
@@ -2,7 +2,7 @@
 (export #t (import: ./interface ./session ./connection ./headers ./data))
 
 (def (send-mail smtp return-path forward-path . data)
-  (using (smtp :- SMTP)
+  (using (smtp : SMTP)
     (def sredaeh []) ;;(headers interted)
     (def body #f) ;; The body
     (def body? (? (or string? u8vector? procedure?)))