diff --git a/tools/cross-scripts/cross-x86-x86.lisp b/tools/cross-scripts/cross-x86-x86.lisp
index ed7f77cb9691dabcffbbdcf3f7011a87a3eb28b0..7959b03e01defadfe0c1cfceaf3158f4a2853e12 100644
--- a/tools/cross-scripts/cross-x86-x86.lisp
+++ b/tools/cross-scripts/cross-x86-x86.lisp
@@ -16,7 +16,8 @@
      :conservative-float-type
      :hash-new :random-mt19937
      :linux :glibc2 :glibc2.1
-     :cmu :cmu19 :cmu19a
+     :cmu :cmu19 :cmu19c
+     :double-double
      )
    ;; Features to remove from current *features* here
    '(:x86-bootstrap :alpha :osf1 :mips
@@ -123,8 +124,19 @@
 	OLD-X86:SIMPLE-BIT-VECTOR-TYPE
 	OLD-X86:SIMPLE-STRING-TYPE OLD-X86:SIMPLE-VECTOR-TYPE 
 	OLD-X86:SIMPLE-ARRAY-TYPE OLD-X86:VECTOR-DATA-OFFSET
+	OLD-X86:DOUBLE-FLOAT-EXPONENT-BYTE
+	OLD-X86:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX 
+	OLD-X86:DOUBLE-FLOAT-SIGNIFICAND-BYTE
+	OLD-X86:SINGLE-FLOAT-EXPONENT-BYTE
+	OLD-X86:SINGLE-FLOAT-NORMAL-EXPONENT-MAX
+	OLD-X86:SINGLE-FLOAT-SIGNIFICAND-BYTE
 	))
 
+;; Modular arith hacks
+(setf (fdefinition 'vm::ash-left-mod32) #'old-x86::ash-left-mod32)
+(setf (fdefinition 'vm::lognot-mod32) #'old-x86::lognot-mod32)
+;; End arith hacks
+
 (let ((function (symbol-function 'kernel:error-number-or-lose)))
   (let ((*info-environment* (c:backend-info-environment c:*target-backend*)))
     (setf (symbol-function 'kernel:error-number-or-lose) function)