diff --git a/VersionASM b/VersionASM
index 87ad897bff1911eb5a681a1f9fb083948be84b05..d360add7f95e0be86c58ba3c3be1ca40f3424eb6 100644
--- a/VersionASM
+++ b/VersionASM
@@ -13,12 +13,12 @@
GBLS Module_ComponentPath
Module_MajorVersion SETS "5.35"
Module_Version SETA 535
-Module_MinorVersion SETS "4.79.2.20"
-Module_Date SETS "16 Mar 2001"
-Module_ApplicationDate2 SETS "16-Mar-01"
-Module_ApplicationDate4 SETS "16-Mar-2001"
+Module_MinorVersion SETS "4.79.2.21"
+Module_Date SETS "19 Mar 2001"
+Module_ApplicationDate2 SETS "19-Mar-01"
+Module_ApplicationDate4 SETS "19-Mar-2001"
Module_ComponentName SETS "Kernel"
Module_ComponentPath SETS "RiscOS/Sources/Kernel"
-Module_FullVersion SETS "5.35 (4.79.2.20)"
-Module_HelpVersion SETS "5.35 (16 Mar 2001) 4.79.2.20"
+Module_FullVersion SETS "5.35 (4.79.2.21)"
+Module_HelpVersion SETS "5.35 (19 Mar 2001) 4.79.2.21"
END
diff --git a/VersionNum b/VersionNum
index 31d3cd5f57c113e572c0b6c0bd47f43aac9c75bc..d4b71a4a083bd47154268c0d6b7ae552517d7391 100644
--- a/VersionNum
+++ b/VersionNum
@@ -4,19 +4,19 @@
*
*/
#define Module_MajorVersion_CMHG 5.35
-#define Module_MinorVersion_CMHG 4.79.2.20
-#define Module_Date_CMHG 16 Mar 2001
+#define Module_MinorVersion_CMHG 4.79.2.21
+#define Module_Date_CMHG 19 Mar 2001
#define Module_MajorVersion "5.35"
#define Module_Version 535
-#define Module_MinorVersion "4.79.2.20"
-#define Module_Date "16 Mar 2001"
+#define Module_MinorVersion "4.79.2.21"
+#define Module_Date "19 Mar 2001"
-#define Module_ApplicationDate2 "16-Mar-01"
-#define Module_ApplicationDate4 "16-Mar-2001"
+#define Module_ApplicationDate2 "19-Mar-01"
+#define Module_ApplicationDate4 "19-Mar-2001"
#define Module_ComponentName "Kernel"
#define Module_ComponentPath "RiscOS/Sources/Kernel"
-#define Module_FullVersion "5.35 (4.79.2.20)"
-#define Module_HelpVersion "5.35 (16 Mar 2001) (4.79.2.20)"
+#define Module_FullVersion "5.35 (4.79.2.21)"
+#define Module_HelpVersion "5.35 (19 Mar 2001) (4.79.2.21)"
diff --git a/s/PMF/i2cutils b/s/PMF/i2cutils
index d8e388e1b26be79515a2ee06f79866546bae9824..1a1671c750ef990a3ecb6c5fab7a4112f1d57afa 100644
--- a/s/PMF/i2cutils
+++ b/s/PMF/i2cutils
@@ -446,8 +446,9 @@ WriteSubBlock ROUT
16 SUBS R5, R5, #1 ; update checksum
LDRCS R14, [R1], #1
- ADDCS R4, R4, R14
+ ADDCS R6, R6, R14
BCS %BT16
+ MOV R4, R6
Pull "R3,R5-R6,PC"