From 39a94832bdaeb7e465fcb547fc7f6c6b7358b489 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 28 Sep 2012 19:04:38 -0700 Subject: [PATCH] smtp: plain-auth-string should return a ... string. --- basis/smtp/smtp.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor index 5edbf71434..78c0fad40f 100644 --- a/basis/smtp/smtp.factor +++ b/basis/smtp/smtp.factor @@ -146,7 +146,7 @@ GENERIC: send-auth ( auth -- ) M: no-auth send-auth drop ; : plain-auth-string ( username password -- string ) - [ "\0" prepend ] bi@ append utf8 encode >base64 ; + [ "\0" prepend ] bi@ append utf8 encode >base64 >string ; M: plain-auth send-auth [ username>> ] [ password>> ] bi plain-auth-string -- 2.34.1