Pastebin fixes

diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index 9aefe15bca6478adc0a2c8d18c13a6576f1827a7..ca7591afd1008d607e60896e93bf568780cc1d2c 100755 (executable)
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -79,6 +79,7 @@ C: <annotation> annotation
     pastebin-pastes 2dup length swap set-paste-n push ;
 
 : submit-paste ( summary author channel mode contents -- )
+    2dup global [ 2array . flush ] bind
     <paste> [
         pastebin store get-persistent add-paste
         store save-store
@@ -100,7 +101,7 @@ C: <annotation> annotation
 \ annotate-paste {
     { "n" v-required v-number }
     { "summary" "- no summary -" v-default }
-    { "author" v-required }
+    { "author" "- no author -" v-default }
     { "mode" "factor" v-default }
     { "contents" v-required }
 } define-action