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

slavapestov · Sep 29, 2012 · 61feee6 · 61feee6
1 parent c49ed40
commit 61feee6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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