diff --git a/Platform/Apple/virtual/src/plasma/diskops.pla b/Platform/Apple/virtual/src/plasma/diskops.pla
index e9a01176..ec10499c 100644
--- a/Platform/Apple/virtual/src/plasma/diskops.pla
+++ b/Platform/Apple/virtual/src/plasma/diskops.pla
@@ -649,7 +649,7 @@ def _newOrLoadGame(ask)#1
           displayMenu(existing)
         fin
         break
-      is 18 // ctrl-R
+      is 'R'
         setRecordMode(1)
         break
     wend
diff --git a/Platform/Apple/virtual/tools/xformScript.rb b/Platform/Apple/virtual/tools/xformScript.rb
index 42fcab7b..cb829f85 100755
--- a/Platform/Apple/virtual/tools/xformScript.rb
+++ b/Platform/Apple/virtual/tools/xformScript.rb
@@ -1,5 +1,6 @@
 #!/usr/bin/env ruby
 
+print "R"
 File.readlines(ARGV[0]).each do |line|
   line.scan(/KEY:(.*?) SEED:/).each { |match| print $1 }
   line.scan(/STRING:(.*)/).each { |match| puts $1 }