diff --git a/Commands/Update.hs b/Commands/Update.hs
--- a/Commands/Update.hs
+++ b/Commands/Update.hs
@@ -56,7 +56,7 @@
                  status = body
              in do poststatus <- procStatus cp "update" status
                    xmlstr <- sendAuthRequest cp "/statuses/update.xml" []
-                             ([("source", "Twidge"), ("status", poststatus)] ++
+                             ([("source", "twidge"), ("status", poststatus)] ++
                               irt)
                    debugM "update" $ "Got doc: " ++ xmlstr
 update_worker x cp ([], []) =
diff --git a/Config.hs b/Config.hs
--- a/Config.hs
+++ b/Config.hs
@@ -35,7 +35,7 @@
 import Control.Monad
 import Data.Either.Utils
 import Data.String.Utils(strip, split)
-import System.Posix.Files(rename)
+import System.Posix.Files(rename, setFileCreationMask)
 
 getDefaultCP =
     do return $ forceEither $ 
@@ -67,6 +67,7 @@
                    Nothing -> getCPName
                    Just x -> return x
        let tempname = cpname ++ ".write.tmp"
+       setFileCreationMask 0o0077
        writeFile tempname (to_string cp)
        rename tempname cpname
 
diff --git a/twidge.cabal b/twidge.cabal
--- a/twidge.cabal
+++ b/twidge.cabal
@@ -1,5 +1,5 @@
 Name: twidge
-Version: 0.99.2
+Version: 0.99.3
 License: GPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen