diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index 2a5a69b91..6a1f6b2cf 100644
--- a/src/Handler/Profile.hs
+++ b/src/Handler/Profile.hs
@@ -37,10 +37,11 @@ makeSettingForm template = identForm FIDsettings $ \html -> do
         <*> areq (selectField $ dateTimeFormatOptions SelFormatDateTime) (fslI MsgDateTimeFormat) (stgDateTime <$> template)
         <*> areq (selectField $ dateTimeFormatOptions SelFormatDate) (fslI MsgDateFormat) (stgDate <$> template)
         <*> areq (selectField $ dateTimeFormatOptions SelFormatTime) (fslI MsgTimeFormat) (stgTime <$> template)
-        <*  aformSection notificationSection
+        <*  aformSection behaviorSection
         <*> areq checkBoxField (fslI MsgDownloadFiles
                                    & setTooltip MsgDownloadFilesTip
                                 ) (stgDownloadFiles <$> template)
+        <*  aformSection notificationSection
         <*> (NotificationSettings <$> funcForm nsForm (fslI MsgNotificationSettings) True)
     --   <$> aFormGroup "Cosmetics"     cosmeticsForm
     --   <*> aFormGroup "Notifications" notificationsForm
@@ -49,6 +50,8 @@ makeSettingForm template = identForm FIDsettings $ \html -> do
   where
     cosmeticsSection :: Text
     cosmeticsSection = "Cosmetics"
+    behaviorSection :: Text
+    behaviorSection = "Behavior"
     notificationSection :: Text
     notificationSection = "Notifications"
     themeList = [Option (display t) t (toPathPiece t) | t <- universeF]