diff --git a/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas b/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas
index 7781153bf42..ed564243293 100644
--- a/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas
+++ b/windows/src/desktop/kmshell/install/UfrmInstallKeyboardFromWeb.pas
@@ -49,16 +49,19 @@ interface
 type
   TfrmInstallKeyboardFromWeb = class(TfrmWebContainer)
     dlgSaveFile: TSaveDialog;
-    procedure TntFormShow(Sender: TObject);
+    procedure TntFormCreate(Sender: TObject);
   private
     FDownloadFilename: string;
     FDownloadURL: string;
     frmDownloadProgress: TfrmDownloadProgress;
+    FDownloadStatusText: string;
+    FDownloadStatusCode: Integer;
     procedure DoDownload(AOwner: TfrmDownloadProgress; var Result: Boolean);
     procedure cefBeforeBrowse(Sender: TObject; const Url: string;
       wasHandled: Boolean);
     procedure cefBeforeBrowseSync(Sender: TObject; const Url: string;
       out Handled: Boolean);
+    procedure cefLoadingStateChange(Sender: TObject; isLoading, canGoBack, canGoForward: Boolean);
     procedure DownloadAndInstallPackage(const PackageID, BCP47: string);
     procedure HttpReceiveData(const Sender: TObject; AContentLength,
       AReadCount: Int64; var Abort: Boolean);
@@ -77,6 +80,9 @@ implementation
   httpuploader,
   GlobalProxySettings,
   Keyman.Configuration.UI.InstallFile,
+  Keyman.System.LocaleStrings,
+  kmint,
+  MessageIdentifierConsts,
   Upload_Settings,
   utilfiletypes,
   utildir,
@@ -95,17 +101,18 @@ procedure TfrmInstallKeyboardFromWeb.FireCommand(const command: WideString;
     inherited;
 end;
 
-procedure TfrmInstallKeyboardFromWeb.TntFormShow(Sender: TObject);
+procedure TfrmInstallKeyboardFromWeb.TntFormCreate(Sender: TObject);
 begin
+  inherited;
   // Ensures keyman.com hosted site opens locally
   cef.ShouldOpenRemoteUrlsInBrowser := False;
   cef.OnBeforeBrowse := cefBeforeBrowse;
   cef.OnBeforeBrowseSync := cefBeforeBrowseSync;
+  cef.OnLoadingStateChange := cefLoadingStateChange;
 
   FRenderPage := 'downloadkeyboard';
 
   Content_Render;
-  inherited;
 end;
 
 procedure TfrmInstallKeyboardFromWeb.cefBeforeBrowseSync(Sender: TObject; const Url: string; out Handled: Boolean);
@@ -113,6 +120,17 @@ procedure TfrmInstallKeyboardFromWeb.cefBeforeBrowseSync(Sender: TObject; const
   Handled := TRegEx.IsMatch(Url, UrlPath_RegEx_MatchKeyboardsInstall);
 end;
 
+procedure TfrmInstallKeyboardFromWeb.cefLoadingStateChange(Sender: TObject;
+  isLoading, canGoBack, canGoForward: Boolean);
+begin
+  if not isLoading then
+  begin
+    if canGoBack
+      then cef.cef.ExecuteJavaScript('updateBackButtonState(true)', cef.cef.Browser.MainFrame.Url)
+      else cef.cef.ExecuteJavaScript('updateBackButtonState(false)', cef.cef.Browser.MainFrame.Url);
+  end;
+end;
+
 procedure TfrmInstallKeyboardFromWeb.cefBeforeBrowse(Sender: TObject; const Url: string; wasHandled: Boolean);
 var
   m: TMatch;
@@ -120,6 +138,7 @@ procedure TfrmInstallKeyboardFromWeb.cefBeforeBrowse(Sender: TObject; const Url:
   BCP47: string;
   PackageID: string;
 begin
+
   m := TRegEx.Match(Url, UrlPath_RegEx_MatchKeyboardsInstall);
   if m.Success then
   begin
@@ -151,7 +170,10 @@ procedure TfrmInstallKeyboardFromWeb.DownloadAndInstallPackage(const PackageID,
     try
       frmDownloadProgress.Callback := DoDownload;
       if frmDownloadProgress.ShowModal <> mrOk then
+      begin
+        ShowMessage(TLocaleStrings.MsgFromIdFormat(kmcom, S_DownloadKeyboard_DownloadError, [FDownloadStatusText, FDownloadStatusCode]));
         Exit;
+      end;
     finally
       frmDownloadProgress.Free;
     end;
@@ -181,33 +203,35 @@ procedure TfrmInstallKeyboardFromWeb.DoDownload(AOwner: TfrmDownloadProgress; va
   FTempFilename: string;
 begin
   Result := False;
-    FTempFilename := FDownloadFilename + '.download';
-    Client := THTTPClient.Create;
+  FTempFilename := FDownloadFilename + '.download';
+  Client := THTTPClient.Create;
+  try
+    Client.OnReceiveData := HttpReceiveData;
+
+    Stream := TFileStream.Create(FTempFilename, fmCreate);
     try
-      Client.OnReceiveData := HttpReceiveData;
-
-      Stream := TFileStream.Create(FTempFilename, fmCreate);
-      try
-        Response := Client.Get(FDownloadURL, Stream);
-        Result := Response.StatusCode = 200;
-      finally
-        Stream.Free;
-      end;
+      Response := Client.Get(FDownloadURL, Stream);
+      Result := Response.StatusCode = 200;
+      FDownloadStatusText := Response.StatusText;
+      FDownloadStatusCode := Response.StatusCode;
+    finally
+      Stream.Free;
+    end;
 
-      if FileExists(FTempFilename)  then
+    if FileExists(FTempFilename) then
+    begin
+      if Result then
       begin
-        if Result then
-        begin
-          if FileExists(FDownloadFilename) then
-            System.SysUtils.DeleteFile(FDownloadFilename);
-          RenameFile(FTempFilename, FDownloadFilename);
-        end
-        else
-          System.SysUtils.DeleteFile(FTempFilename);
-      end;
-    finally
-      Client.Free;
+        if FileExists(FDownloadFilename) then
+          System.SysUtils.DeleteFile(FDownloadFilename);
+        RenameFile(FTempFilename, FDownloadFilename);
+      end
+      else
+        System.SysUtils.DeleteFile(FTempFilename);
     end;
+  finally
+    Client.Free;
+  end;
 end;
 
 
diff --git a/windows/src/desktop/kmshell/kmshell.dproj b/windows/src/desktop/kmshell/kmshell.dproj
index 96bd07f5134..0509db6a6f0 100644
--- a/windows/src/desktop/kmshell/kmshell.dproj
+++ b/windows/src/desktop/kmshell/kmshell.dproj
@@ -99,7 +99,7 @@
         <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <BT_BuildType>Debug</BT_BuildType>
-        <Debugger_RunParams>-splash</Debugger_RunParams>
+        <Debugger_RunParams>-c</Debugger_RunParams>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -413,15 +413,15 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Profiling\AQtimeModule1.aqt" Configuration="Debug" Class="ProjectFile">
+                <DeployFile LocalName="kmshell.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteDir>.\</RemoteDir>
+                        <RemoteName>kmshell.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="kmshell.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Profiling\AQtimeModule1.aqt" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
-                        <RemoteName>kmshell.exe</RemoteName>
+                        <RemoteDir>.\</RemoteDir>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
diff --git a/windows/src/desktop/kmshell/kmshell.res b/windows/src/desktop/kmshell/kmshell.res
index a8fe854833a..4c42e0a34e5 100644
Binary files a/windows/src/desktop/kmshell/kmshell.res and b/windows/src/desktop/kmshell/kmshell.res differ
diff --git a/windows/src/desktop/kmshell/xml/config.css b/windows/src/desktop/kmshell/xml/config.css
index e23dd6c4038..bea36a38967 100644
--- a/windows/src/desktop/kmshell/xml/config.css
+++ b/windows/src/desktop/kmshell/xml/config.css
@@ -136,6 +136,12 @@ input[type='submit'], input[type='button'], button
   border: none;
 }
 
+input[type='submit']:disabled, input[type='button']:disabled, button:disabled
+{
+  color: #c0c0cf;
+  background: #80808f;
+}
+
 a.hotkey:link, a.hotkey:visited
 {
   color: blue;
diff --git a/windows/src/desktop/kmshell/xml/downloadkeyboard.xsl b/windows/src/desktop/kmshell/xml/downloadkeyboard.xsl
index cc867d0194a..da7983487cd 100644
--- a/windows/src/desktop/kmshell/xml/downloadkeyboard.xsl
+++ b/windows/src/desktop/kmshell/xml/downloadkeyboard.xsl
@@ -12,6 +12,7 @@
         <meta http-equiv="content-type" content="application/xhtml+xml; charset=utf-8" />
         <script src="/app/sentry.bundle.min.js"></script>
         <script src="/app/sentry.init.js"></script>
+        <script src="/app/jquery.min.js"></script>
         <title><xsl:value-of select="$locale/string[@name='S_DownloadKeyboard_Title']"/></title>
         <link rel="stylesheet" type="text/css" href="/app/config.css" />
         <style type="text/css">
@@ -57,18 +58,34 @@
 		else return;
 		event.cancelBubble = true; event.returnValue = false;
   }
+
+  // This function is called by the Delphi code when browse events
+  // happen, because we cannot determine the state of history adequately
+  // from within the browser context.
+  function updateBackButtonState(shouldEnable) {
+    document.getElementById('button_back').disabled = !shouldEnable;
+  }
+
+  function goBack() {
+    history.back();
+  }
 ]]></script>
 
       </head>
       <body>
-        <div id="size"></div>
         <iframe id="contentframe" frameborder="0">
           <xsl:attribute name="src"><xsl:value-of select='/Keyman/keyman-com' />/go/windows/<xsl:value-of select="/Keyman/version-info/@versionRelease" />/download-keyboards?version=<xsl:value-of select="/Keyman/Version" /></xsl:attribute>&#160;
         </iframe>
         <div id="footerframe">
-          <!--<div style="float:left; font-size: 13.3px;">
-            <input type="checkbox" id="chkDownloadOnly" /> <label for="chkDownloadOnly"><xsl:value-of select="$locale/string[@name='S_DownloadKeyboard_DownloadOnlyCheckbox']"/></label>
-          </div>-->
+          <div style="float:left; padding-left: 8px">
+            <xsl:call-template name="button">
+              <xsl:with-param name="id">back</xsl:with-param>
+              <xsl:with-param name="disabled">1</xsl:with-param>
+              <xsl:with-param name="caption"><xsl:value-of select="$locale/string[@name='S_Button_Back']"/></xsl:with-param>
+              <xsl:with-param name="command">javascript:goBack()</xsl:with-param>
+              <xsl:with-param name="width">70px</xsl:with-param>
+            </xsl:call-template>
+          </div>
           <div style="float:right; padding-right: 8px">
             <xsl:call-template name="button">
               <xsl:with-param name="caption"><xsl:value-of select="$locale/string[@name='S_Button_Cancel']"/></xsl:with-param>
diff --git a/windows/src/desktop/kmshell/xml/elements.xsl b/windows/src/desktop/kmshell/xml/elements.xsl
index 9d539f3437c..2e70d5da33c 100644
--- a/windows/src/desktop/kmshell/xml/elements.xsl
+++ b/windows/src/desktop/kmshell/xml/elements.xsl
@@ -62,6 +62,7 @@
 		<xsl:param name="default" />
     <xsl:param name="width" />
     <xsl:param name="id" />
+    <xsl:param name="disabled" />
     <xsl:param name="tabid" />
     <xsl:param name="shield" />
 
@@ -74,6 +75,7 @@
               <xsl:otherwise>button</xsl:otherwise>
             </xsl:choose>
           </xsl:attribute>
+          <xsl:if test="$disabled = 1"><xsl:attribute name="disabled">disabled</xsl:attribute></xsl:if>
           <xsl:attribute name="id">button_<xsl:value-of select="$id"/></xsl:attribute>
           <xsl:attribute name="onclick"><xsl:choose><xsl:when test="$onclick != ''"><xsl:value-of select="$onclick"/></xsl:when><xsl:otherwise>location.href="<xsl:value-of select="$command"/>";</xsl:otherwise></xsl:choose></xsl:attribute>
           <xsl:attribute name="tabindex"><xsl:value-of select="$tabid"/></xsl:attribute>
@@ -98,6 +100,7 @@
               <xsl:otherwise>button</xsl:otherwise>
             </xsl:choose>
           </xsl:attribute>
+          <xsl:if test="$disabled = 1"><xsl:attribute name="disabled">disabled</xsl:attribute></xsl:if>
           <xsl:attribute name="ID">button_<xsl:value-of select="$id"/></xsl:attribute>
           <xsl:attribute name="onclick"><xsl:choose><xsl:when test="$onclick != ''"><xsl:value-of select="$onclick"/></xsl:when><xsl:otherwise>location.href="<xsl:value-of select="$command"/>";</xsl:otherwise></xsl:choose></xsl:attribute>
           <xsl:attribute name="value"><xsl:value-of select="$caption" /></xsl:attribute>
diff --git a/windows/src/desktop/kmshell/xml/strings.xml b/windows/src/desktop/kmshell/xml/strings.xml
index 161ea6cdf64..190549ecdea 100644
--- a/windows/src/desktop/kmshell/xml/strings.xml
+++ b/windows/src/desktop/kmshell/xml/strings.xml
@@ -570,6 +570,16 @@
   <!-- Introduced: 7.0.230.0 -->
   <string name="S_DownloadKeyboard_DownloadOnlyCheckbox" comment="Download only option checkbox">Don't install, just download</string>
 
+  <!-- Parameters: %0:s = Error Message, %1:d Error Code -->
+  <!-- Context: Download Keyboard Dialog -->
+  <!-- String Type: FormatString -->
+  <!-- Introduced: 14.0 -->
+  <string name="S_DownloadKeyboard_DownloadError" comment="Message shown when there is an error downloading the keyboard package">Unable to download keyboard, error %1:d: %0:s</string>
+
+  <!-- Context: Download Keyboard Dialog -->
+  <!-- String Type: PlainText -->
+  <!-- Introduced: 14.0 -->
+  <string name="S_Button_Back" comment="Back button">&lt; Back</string>
   
   
 
diff --git a/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
index 16cb7bc7b43..065150a81f4 100644
--- a/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
+++ b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
@@ -42,6 +42,7 @@ object frameCEFHost: TframeCEFHost
     OnWidgetCompMsg = cefWidgetCompMsg
     OnProcessMessageReceived = cefProcessMessageReceived
     OnLoadEnd = cefLoadEnd
+    OnLoadingStateChange = cefLoadingStateChange
     OnSetFocus = cefSetFocus
     OnRunContextMenu = cefRunContextMenu
     OnPreKeyEvent = cefPreKeyEvent
diff --git a/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
index 935a6479ad3..a8a7f434004 100644
--- a/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
+++ b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
@@ -40,6 +40,12 @@ interface
   CEF_COMMAND = WM_USER + 310;
   CEF_RESIZEFROMDOCUMENT = WM_USER + 311;
   CEF_SETFOCUS = WM_USER + 312;
+  CEF_LOADINGSTATECHANGE = WM_USER + 313;
+
+
+  CEF_LOADINGSTATECHANGE_ISLOADING = $0001;
+  CEF_LOADINGSTATECHANGE_CANGOBACK = $0002;
+  CEF_LOADINGSTATECHANGE_CANGOFORWARD = $0004;
 
 type
   TCEFHostKeyEventData = record
@@ -74,6 +80,7 @@   TCEFTitleChangeEventData = record
   TCEFHostKeyEvent = procedure(Sender: TObject; e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean) of object;
   TCEFHostTitleChangeEvent = procedure(Sender: TObject; const title: string) of object;
   TCEFHostResizeFromDocumentEvent = procedure(Sender: TObject; width, height: Integer) of object;
+  TCEFHostLoadingStateChangeEvent = procedure(Sender: TObject; isLoading, canGoBack, canGoForward: Boolean) of object;
 
   TframeCEFHost = class(TForm, IKeymanCEFHost)
     tmrRefresh: TTimer;
@@ -122,6 +129,8 @@   TframeCEFHost = class(TForm, IKeymanCEFHost)
       const browser: ICefBrowser; sourceProcess: TCefProcessId;
       const message: ICefProcessMessage; out Result: Boolean);
     procedure cefWidgetCompMsg(var aMessage: TMessage; var aHandled: Boolean);
+    procedure cefLoadingStateChange(Sender: TObject; const browser: ICefBrowser;
+      isLoading, canGoBack, canGoForward: Boolean);
   private
     FApplicationHandle: THandle;
     FNextURL: string;
@@ -141,6 +150,8 @@   TframeCEFHost = class(TForm, IKeymanCEFHost)
     FOnCommand: TCEFCommandEvent;
     FOnResizeFromDocument: TCEFHostResizeFromDocumentEvent;
     FOnHelpTopic: TNotifyEvent;
+    FIsCreated: Boolean;
+    FOnLoadingStateChange: TCEFHostLoadingStateChangeEvent;
 
     procedure CallbackWndProc(var Message: TMessage);
 
@@ -158,6 +169,7 @@   TframeCEFHost = class(TForm, IKeymanCEFHost)
     procedure Handle_CEF_COMMAND(var message: TMessage);
     procedure Handle_CEF_RESIZEFROMDOCUMENT(var message: TMessage);
     procedure Handle_CEF_SETFOCUS(var message: TMessage);
+    procedure Handle_CEF_LOADINGSTATECHANGE(var message: TMessage);
 
     // CEF: You have to handle this two messages to call NotifyMoveOrResizeStarted or some page elements will be misaligned.
     procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@@ -187,6 +199,7 @@   TframeCEFHost = class(TForm, IKeymanCEFHost)
     property OnPreKeySyncEvent: TCEFHostPreKeySyncEvent read FOnPreKeySyncEvent write FOnPreKeySyncEvent;
     property OnKeyEvent: TCEFHostKeyEvent read FOnKeyEvent write FOnKeyEvent;
     property OnResizeFromDocument: TCEFHostResizeFromDocumentEvent read FOnResizeFromDocument write FOnResizeFromDocument;
+    property OnLoadingStateChange: TCEFHostLoadingStateChangeEvent read FOnLoadingStateChange write FOnLoadingStateChange;
   end;
 
 // Helpers to make sure we don't accidentally code
@@ -315,6 +328,7 @@ procedure TframeCEFHost.cefWidgetCompMsg(var aMessage: TMessage;
 procedure TframeCEFHost.CreateBrowser;
 begin
   AssertVclThread;
+  FIsCreated := True;
   tmrCreateBrowser.Enabled := not cef.CreateBrowser(cefwp);
 end;
 
@@ -331,6 +345,13 @@ procedure TframeCEFHost.Navigate;
   if FNextURL = '' then
     Exit;
 
+  if not FIsCreated then
+  begin
+    cef.DefaultUrl := FNextURL;
+    FNextURL := '';
+    Exit;
+  end;
+
   if not cef.Initialized then
   begin
     // After initialization, refresh will happen
@@ -366,6 +387,7 @@ procedure TframeCEFHost.CallbackWndProc(var Message: TMessage);
     CEF_COMMAND: Handle_CEF_COMMAND(Message);
     CEF_RESIZEFROMDOCUMENT: Handle_CEF_RESIZEFROMDOCUMENT(Message);
     CEF_SETFOCUS: Handle_CEF_SETFOCUS(Message);
+    CEF_LOADINGSTATECHANGE: Handle_CEF_LOADINGSTATECHANGE(Message);
   end;
 
   if Self <> nil then
@@ -552,6 +574,19 @@ procedure TframeCEFHost.cefLoadEnd(Sender: TObject; const browser: ICefBrowser;
   PostMessage(FCallbackWnd, CEF_LOADEND, httpStatusCode, 0);
 end;
 
+procedure TframeCEFHost.cefLoadingStateChange(Sender: TObject;
+  const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean);
+var
+  v: Integer;
+begin
+  AssertCefThread;
+  v := 0;
+  if isLoading then v := v or CEF_LOADINGSTATECHANGE_ISLOADING;
+  if canGoBack then v := v or CEF_LOADINGSTATECHANGE_CANGOBACK;
+  if canGoForward then v := v or CEF_LOADINGSTATECHANGE_CANGOFORWARD;
+  PostMessage(FCallbackWnd, CEF_LOADINGSTATECHANGE, v, 0);
+end;
+
 procedure TframeCEFHost.Handle_CEF_KEYEVENT(var message: TMessage);
 var
   p: PCEFHostKeyEventData;
@@ -592,6 +627,19 @@ procedure TframeCEFHost.Handle_CEF_LOADEND(var message: TMessage);
     FOnLoadEnd(Self);
 end;
 
+procedure TframeCEFHost.Handle_CEF_LOADINGSTATECHANGE(var message: TMessage);
+begin
+  if csDestroying in ComponentState then
+    Exit;
+  AssertVclThread;
+
+  if Assigned(FOnLoadingStateChange) then
+    FOnLoadingStateChange(Self,
+      (message.WParam and CEF_LOADINGSTATECHANGE_ISLOADING) <> 0,
+      (message.WParam and CEF_LOADINGSTATECHANGE_CANGOBACK) <> 0,
+      (message.WParam and CEF_LOADINGSTATECHANGE_CANGOFORWARD) <> 0);
+end;
+
 procedure TframeCEFHost.Handle_CEF_RESIZEFROMDOCUMENT(var message: TMessage);
 begin
   AssertVclThread;