diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index f71abe9287239cbac0aa4e57b72f0f6c6a137f4f..a7131b88b89ad5e43eb46e01fe7ca077c7ab1422 100644
--- a/tools/cross-scripts/cross-x86-x86.lisp
+++ b/tools/cross-scripts/cross-x86-x86.lisp
@@ -130,7 +130,10 @@
 	OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE
 	OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
 	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))
 
 ;; Modular arith hacks
 (setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)
@@ -166,9 +169,6 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  #+(and bsd (not elf))
-  (concatenate 'string "_" name)
-  #-(and bsd (not elf))
   name)
 (export 'extern-alien-name)
 (export 'fixup-code-object)