smtp: plain-auth-string should return a ... string.

[factor.git] / basis / smtp / smtp.factor

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 5edbf71434fd4a4943c0043152649ebc79043bc0..78c0fad40f06e442fa088390f95ebefbe544e44b 100644 (file)
--- 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