diff --git a/mps/qa/test/script/init b/mps/qa/test/script/init
new file mode 100644
index 00000000000..b57e8c140a8
--- /dev/null
+++ b/mps/qa/test/script/init
@@ -0,0 +1,19 @@
+#!/usr/local/perl
+# $HopeName: MMQA_harness!script:dirs(trunk.3) $
+#
+# harness_init is called from qa after loading everything in,
+# but before calling the command
+#
+
+1;
+
+sub harness_init {
+ &platform_detect;
+ &process_options;
+ &set_dirs;
+ &platform_settings;
+ &identify;
+ &auto_settings;
+ &platform_settings;
+}
+