diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index a7131b88b89ad5e43eb46e01fe7ca077c7ab1422..e14cfdfc8222f09d8d172df1a903f3b618db3902 100644
--- a/tools/cross-scripts/cross-x86-x86.lisp
+++ b/tools/cross-scripts/cross-x86-x86.lisp
@@ -132,8 +132,8 @@
 	OLD-X86:SINGLE-FLOAT-SIGNIFICAND-BYTE
 	)
   #+double-double
-  (frob OLD-SPARC:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE
-	OLD-SPARC:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE))
+  (frob OLD-X86:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE
+	OLD-X86:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE))
 
 ;; Modular arith hacks
 (setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)