diff --git a/bootfiles/19e/boot-2008-04-1.lisp b/bootfiles/19e/boot-2008-04-1.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..a7134ac518efc78587bd9b4f6c032858d7d84e3f
--- /dev/null
+++ b/bootfiles/19e/boot-2008-04-1.lisp
@@ -0,0 +1,15 @@
+;; Bootstrap to change the vops to use 32-bit registers for characters.
+;; A basic cross-compile works too.
+
+#+x86
+(in-package :x86)
+
+#+x86
+(handler-bind ((error (lambda (c)
+                        (declare (ignore c))
+                        (invoke-restart 'continue))))
+  (defconstant byte-sc-names '(byte-reg))
+  (defconstant dword-sc-names
+    '(any-reg descriptor-reg sap-reg signed-reg unsigned-reg control-stack
+      signed-stack unsigned-stack sap-stack single-stack constant
+      base-char-reg base-char-stack)))
\ No newline at end of file