diff --git a/ImageName/!NewMajor,feb b/ImageName/!NewMajor,feb
index f7ca082c07df020a5686fdaf776bf6974947b74e..680779451d774232581572aa1a7ac8aa6c0ec7ee 100644
--- a/ImageName/!NewMajor,feb
+++ b/ImageName/!NewMajor,feb
@@ -12,4 +12,4 @@
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |
-perl <obey$dir>.ImageName -newmajor -test
+do <Perl$Dir>.perl <obey$dir>.ImageName -newmajor -test
diff --git a/ImageName/!NewMinor,feb b/ImageName/!NewMinor,feb
index 935b646e15ec741d159adfd391fc9dd13a2a5869..4752ecd7046e225dc93e67ec37a1ffec39fd17e8 100644
--- a/ImageName/!NewMinor,feb
+++ b/ImageName/!NewMinor,feb
@@ -12,4 +12,4 @@
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |
-perl <obey$dir>.ImageName -newminor -test
+do <Perl$Dir>.perl <obey$dir>.ImageName -newminor -test
diff --git a/ImageName/!NewVer,feb b/ImageName/!NewVer,feb
index 852000be21f77d36f61556274af0949034ddb466..263f3e547c69c72a52f15c3a95bf9c6f8fa474a2 100644
--- a/ImageName/!NewVer,feb
+++ b/ImageName/!NewVer,feb
@@ -12,4 +12,4 @@
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |
-perl <obey$dir>.ImageName -test
+do <Perl$Dir>.perl <obey$dir>.ImageName -test
diff --git a/ImageName/!Query,feb b/ImageName/!Query,feb
index 5ed90c1fd3c44ceea72bc4722e64bd95f1e1ce53..3803f6a15c3a6f84885bab20564a00209e5318b1 100644
--- a/ImageName/!Query,feb
+++ b/ImageName/!Query,feb
@@ -12,5 +12,5 @@
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |
-perl <obey$dir>.ImageName -query -test
+do <Perl$Dir>.perl <obey$dir>.ImageName -query -test
 echo Next version: <Build$ImageName>
\ No newline at end of file
diff --git a/Makefiles/StdTools b/Makefiles/StdTools
index f04c4b4ac3fa53b16ffc76a3ef5fd74ffc0660df..3ebe87f49312fd819fc9d60057bf5564f5457c07 100644
--- a/Makefiles/StdTools
+++ b/Makefiles/StdTools
@@ -41,13 +41,13 @@ ECHO            = echo
 FILTERCOMP      = ${PERL} Build:FilterComp
 FILTERCOMP2     = ${PERL} Build:FilterComp2
 GETVERSION      = ${PERL} Build:GetVersion
-HDR2H           = perl Build:Hdr2H
+HDR2H           = ${PERL} Build:Hdr2H
 LD              = link
 MAKE            = amu
 MODGEN          = modgen
 MODSQZ          = modsqz
 NOP             = @|
-PERL            = ${DO} perl
+PERL            = ${DO} <Perl$Dir>.perl
 RESGEN          = resgen
 RM              = remove
 SETTYPE         = settype
diff --git a/VersionNum b/VersionNum
index c45909de4799ef35c4026b603a85e08985992734..a4d658b7493da52f4ba3de8356d9abaaa7a7e5d4 100644
--- a/VersionNum
+++ b/VersionNum
@@ -1,23 +1,23 @@
-/* (4.72)
+/* (4.73)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  * Last processed by srccommit version: 1.1.
  *
  */
-#define Module_MajorVersion_CMHG        4.72
+#define Module_MajorVersion_CMHG        4.73
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                10 May 2009
+#define Module_Date_CMHG                07 Jun 2009
 
-#define Module_MajorVersion             "4.72"
-#define Module_Version                  472
+#define Module_MajorVersion             "4.73"
+#define Module_Version                  473
 #define Module_MinorVersion             ""
-#define Module_Date                     "10 May 2009"
+#define Module_Date                     "07 Jun 2009"
 
-#define Module_ApplicationDate          "10-May-09"
+#define Module_ApplicationDate          "07-Jun-09"
 
 #define Module_ComponentName            "BuildSys"
 #define Module_ComponentPath            "castle/RiscOS/BuildSys"
 
-#define Module_FullVersion              "4.72"
-#define Module_HelpVersion              "4.72 (10 May 2009)"
-#define Module_LibraryVersionInfo       "4:72"
+#define Module_FullVersion              "4.73"
+#define Module_HelpVersion              "4.73 (07 Jun 2009)"
+#define Module_LibraryVersionInfo       "4:73"