webapps.pastebin: fix

diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index 6b07131285323ca3a4afc87bf39a85a3f644361d..c456ccf3d55c9fc2c8ada567c6bbdda73f11e957 100644 (file)
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -157,13 +157,12 @@ M: annotation entity-url
     pastebin-email-list get-global [
         drop
     ] [
-        clone
+        <email> swap >>to
+        swap clone
             "https" >>protocol
             "paste.factorcode.org" >>host
             [ "$pastebin" ?head drop ] change-path
-        present
-        <email> swap >>to
-        swap >>body
+        present >>body
         "factor-builds2@gmail.com" >>from
         "New paste" >>subject
         send-email