diff --git a/VersionASM b/VersionASM
index 636b4a488dbc68380853a517b47c9ed594b6df82..3cbfa0e7347214e2b1e63790fb4d1e31a453763a 100644
--- a/VersionASM
+++ b/VersionASM
@@ -9,12 +9,12 @@
                         GBLS    Module_ApplicationDate
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
-Module_MajorVersion     SETS    "5.78"
-Module_Version          SETA    578
+Module_MajorVersion     SETS    "5.79"
+Module_Version          SETA    579
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "26 Aug 2020"
-Module_ApplicationDate  SETS    "26-Aug-20"
+Module_Date             SETS    "12 Sep 2020"
+Module_ApplicationDate  SETS    "12-Sep-20"
 Module_ComponentName    SETS    "Wimp"
-Module_FullVersion      SETS    "5.78"
-Module_HelpVersion      SETS    "5.78 (26 Aug 2020)"
+Module_FullVersion      SETS    "5.79"
+Module_HelpVersion      SETS    "5.79 (12 Sep 2020)"
                         END
diff --git a/VersionNum b/VersionNum
index 597839cfc76cc1a1de511cc2e390e35725a55a0b..4f05241189643ee2b7c6f37a0bc16bb88288eaa4 100644
--- a/VersionNum
+++ b/VersionNum
@@ -1,21 +1,21 @@
-/* (5.78)
+/* (5.79)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        5.78
+#define Module_MajorVersion_CMHG        5.79
 #define Module_MinorVersion_CMHG
-#define Module_Date_CMHG                26 Aug 2020
+#define Module_Date_CMHG                12 Sep 2020
 
-#define Module_MajorVersion             "5.78"
-#define Module_Version                  578
+#define Module_MajorVersion             "5.79"
+#define Module_Version                  579
 #define Module_MinorVersion             ""
-#define Module_Date                     "26 Aug 2020"
+#define Module_Date                     "12 Sep 2020"
 
-#define Module_ApplicationDate          "26-Aug-20"
+#define Module_ApplicationDate          "12-Sep-20"
 
 #define Module_ComponentName            "Wimp"
 
-#define Module_FullVersion              "5.78"
-#define Module_HelpVersion              "5.78 (26 Aug 2020)"
-#define Module_LibraryVersionInfo       "5:78"
+#define Module_FullVersion              "5.79"
+#define Module_HelpVersion              "5.79 (12 Sep 2020)"
+#define Module_LibraryVersionInfo       "5:79"
diff --git a/s/CnPCaret b/s/CnPCaret
index a2994b9cbb3dd5ce5738943f61d58ad6f6ddf3d0..5ff869e0b24943be4e01f0fa90ac59d885306d7b 100644
--- a/s/CnPCaret
+++ b/s/CnPCaret
@@ -375,8 +375,7 @@ wscp_workarea
         ; is the icon handle valid?
         LDR     R14,[handle,#w_nicons]
         CMP     R1,R14                  ; icon handle out of range?
-        Pull    "R0-R7,R11,R14",HS      ; abort if so
-        BHS     exitsetcaret
+        BHS     exitsetcaret            ; abort if so
 
         LDR     R14,[handle,#w_taskhandle]
         Task    R14,,"SetCaret"         ; page in window owner task