diff --git a/Clckwrks/Admin/EditSettings.hs b/Clckwrks/Admin/EditSettings.hs
--- a/Clckwrks/Admin/EditSettings.hs
+++ b/Clckwrks/Admin/EditSettings.hs
@@ -6,9 +6,6 @@
 import Clckwrks.Acid             (GetUACCT(..), SetUACCT(..))
 import Clckwrks.Admin.Template   (template)
 import Data.Maybe                (fromMaybe)
--- import Data.Text.Lazy            (Text, pack, unpack)
--- import qualified Data.Text.Lazy  as TL
-
 import Data.Text            (Text, pack, unpack)
 import qualified Data.Text  as T
 
@@ -41,7 +38,7 @@
        (CoreState <$>
            (divControlGroup $
              (labelText "site name"               `setAttrs` [("class":="control-label") :: Attr Text Text]) ++>
-             (divControls (inputText (fromMaybe mempty coreSiteName)) `transformEither` toNothing)))
+             (divControls (inputText (fromMaybe mempty coreSiteName)) `transformEither` toMaybe)))
 
        <*> (divControlGroup $
              (label ("Google Analytics UACCT" :: Text) `setAttrs` [("class":="control-label") :: Attr Text Text]) ++>
@@ -49,11 +46,11 @@
 
        <*> (divControlGroup $
              (labelText "/ redirects to"               `setAttrs` [("class":="control-label") :: Attr Text Text]) ++>
-             (divControls (inputText (fromMaybe mempty coreRootRedirect)) `transformEither` toNothing))
+             (divControls (inputText (fromMaybe mempty coreRootRedirect)) `transformEither` toMaybe))
 
        <*> (divControlGroup $
              (labelText "after login redirect to"               `setAttrs` [("class":="control-label") :: Attr Text Text]) ++>
-             (divControls (inputText (fromMaybe mempty coreLoginRedirect)) `transformEither` toNothing))
+             (divControls (inputText (fromMaybe mempty coreLoginRedirect)) `transformEither` toMaybe))
          <*
         (divControlGroup $ divControls $ inputSubmit "Update" `setAttrs` [("class" := "btn") :: Attr Text Text])
     where
@@ -68,9 +65,11 @@
       toMUACCT str | T.null str   = Right $ Nothing
       toMUACCT str = Right $ Just (UACCT $ T.unpack str)
 
-      toNothing :: a -> Either ClckFormError (Maybe a)
-      toNothing a = Right $ Just a
-
+      toMaybe :: Text -> Either ClckFormError (Maybe Text)
+      toMaybe txt =
+          if T.null txt
+             then Right $ Nothing
+             else Right $ Just txt
 
 {-
 editUACCTForm :: Maybe UACCT -> ClckForm ClckURL (Maybe UACCT)
diff --git a/clckwrks.cabal b/clckwrks.cabal
--- a/clckwrks.cabal
+++ b/clckwrks.cabal
@@ -1,5 +1,5 @@
 Name:                clckwrks
-Version:             0.20.0
+Version:             0.20.1
 Synopsis:            A secure, reliable content management system (CMS) and blogging platform
 Description:         clckwrks (pronounced, clockworks) aims to compete
                      directly with popular PHP-based blogging and CMS