diff --git a/VersionASM b/VersionASM
index 53128ee154823fdb274604e6466d452ed9d15ed3..9fb9c64378d7902a13c2d577b08b997ac7448e14 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.39"
-Module_Date             SETS    "21 Jun 2001"
-Module_ApplicationDate2 SETS    "21-Jun-01"
-Module_ApplicationDate4 SETS    "21-Jun-2001"
+Module_MinorVersion     SETS    "4.79.2.40"
+Module_Date             SETS    "22 Jun 2001"
+Module_ApplicationDate2 SETS    "22-Jun-01"
+Module_ApplicationDate4 SETS    "22-Jun-2001"
 Module_ComponentName    SETS    "Kernel"
 Module_ComponentPath    SETS    "RiscOS/Sources/Kernel"
-Module_FullVersion      SETS    "5.35 (4.79.2.39)"
-Module_HelpVersion      SETS    "5.35 (21 Jun 2001) 4.79.2.39"
+Module_FullVersion      SETS    "5.35 (4.79.2.40)"
+Module_HelpVersion      SETS    "5.35 (22 Jun 2001) 4.79.2.40"
                         END
diff --git a/VersionNum b/VersionNum
index e161b84b2b684e3023bf79af7e74c817ef4ab755..affd90f26e1e42f3ea151c508053ab32b23c37e3 100644
--- a/VersionNum
+++ b/VersionNum
@@ -4,19 +4,19 @@
  *
  */
 #define Module_MajorVersion_CMHG        5.35
-#define Module_MinorVersion_CMHG        4.79.2.39
-#define Module_Date_CMHG                21 Jun 2001
+#define Module_MinorVersion_CMHG        4.79.2.40
+#define Module_Date_CMHG                22 Jun 2001
 
 #define Module_MajorVersion             "5.35"
 #define Module_Version                  535
-#define Module_MinorVersion             "4.79.2.39"
-#define Module_Date                     "21 Jun 2001"
+#define Module_MinorVersion             "4.79.2.40"
+#define Module_Date                     "22 Jun 2001"
 
-#define Module_ApplicationDate2         "21-Jun-01"
-#define Module_ApplicationDate4         "21-Jun-2001"
+#define Module_ApplicationDate2         "22-Jun-01"
+#define Module_ApplicationDate4         "22-Jun-2001"
 
 #define Module_ComponentName            "Kernel"
 #define Module_ComponentPath            "RiscOS/Sources/Kernel"
 
-#define Module_FullVersion              "5.35 (4.79.2.39)"
-#define Module_HelpVersion              "5.35 (21 Jun 2001) (4.79.2.39)"
+#define Module_FullVersion              "5.35 (4.79.2.40)"
+#define Module_HelpVersion              "5.35 (22 Jun 2001) (4.79.2.40)"
diff --git a/s/Oscli b/s/Oscli
index e63b05deabd5fb0e5c1c6f5b8f2be8748a50dc9b..3e3611ab5d7f5744ff280778226211d7be111256 100644
--- a/s/Oscli
+++ b/s/Oscli
@@ -920,7 +920,7 @@ nogstransingta
          CMP     R2, #0
          BEQ     preversion_detectified       ; empty expansions are naff
          ADD     R10, R10, R2
-         ADD     R6, R1, R10
+         ADD     R6, R1, R2
 nastycharscan
          LDRB    R2, [R1], #1
          CMP     R2, #&7F