diff --git a/tools/cross-scripts/cross-sparc-sparc.lisp b/tools/cross-scripts/cross-sparc-sparc.lisp
index 9650b4c0080a9e2c7a0c5c092343206653f11cd1..2b1a476a0705cb39aab20128fb82505a63c5fdfa 100644
--- a/tools/cross-scripts/cross-sparc-sparc.lisp
+++ b/tools/cross-scripts/cross-sparc-sparc.lisp
@@ -171,7 +171,11 @@
 	OLD-SPARC:SINGLE-FLOAT-EXPONENT-BYTE
 	OLD-SPARC:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
 	OLD-SPARC:SINGLE-FLOAT-SIGNIFICAND-BYTE
-	))
+	)
+  #+double-double
+  (frob OLD-SPARC:SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE
+	OLD-SPARC:SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE)
+  )
 
 ;; Modular arith hacks.  When cross-compiling, the compiler wants to
 ;; constant-fold some stuff, and it needs the following functions to