diff --git a/extra/twitter/twitter.factor b/extra/twitter/twitter.factor
index f9806a7c4f..2172d7cf81 100644
--- a/extra/twitter/twitter.factor
+++ b/extra/twitter/twitter.factor
@@ -3,7 +3,9 @@ http.client json.reader kernel macros namespaces sequences
 urls.secure urls.encoding ;
 IN: twitter
 
-SYMBOLS: twitter-username twitter-password ;
+SYMBOLS: twitter-username twitter-password twitter-source ;
+
+twitter-source [ "factor" ] initialize
 
 TUPLE: twitter-status
     created-at
@@ -69,7 +71,8 @@ MACRO: keys-boa ( keys class -- )
     twitter-username twitter-password [ get ] bi@ set-basic-auth ;
 
 : update-post-data ( update -- assoc )
-    "status" associate ;
+    "status" associate
+    [ twitter-source get "source" ] dip [ set-at ] keep ;
 
 : (tweet) ( string -- json )
     update-post-data "https://twitter.com/statuses/update.json" <post-request>