diff --git a/compiler/ppc/float.lisp b/compiler/ppc/float.lisp
index e883e559e38cec8011474c2b4b4ce1d8b339af9b..1b0a8d47ebdaba3b1c509dba2a03159b0eb2984c 100644
--- a/compiler/ppc/float.lisp
+++ b/compiler/ppc/float.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/float.lisp,v 1.6 2006/06/30 18:41:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/float.lisp,v 1.7 2006/07/01 13:52:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -507,6 +507,10 @@
 	 (let ((imag-tn (complex-double-double-reg-imag-lo-tn x)))
 	   (inst stfd imag-tn nfp (+ offset (* 6 word-bytes)))))))))
 
+#+double-double
+(define-move-vop move-complex-double-double-float-argument :move-argument
+  (complex-double-double-reg descriptor-reg) (complex-double-double-reg))
+
 #+long-float
 (define-move-vop move-complex-long-float-argument :move-argument
   (complex-long-reg descriptor-reg) (complex-long-reg))
diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index e8fa21a7212fc1b12fbbf0311ef50d8eb9203407..a0ce9770c1320c17979420704cb7ca572328df94 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.45 2006/06/30 18:41:32 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.46 2006/07/01 13:52:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -717,6 +717,10 @@
 	 (let ((imag-tn (complex-long-reg-imag-tn x)))
 	   (store-long-reg imag-tn nfp (+ offset (* 4 word-bytes)))))))))
 
+#+long-float
+(define-move-vop move-complex-long-float-argument :move-argument
+  (complex-long-reg descriptor-reg) (complex-long-reg))
+
 #+double-double
 (define-vop (move-complex-double-double-float-argument)
   (:args (x :scs (complex-double-double-reg) :target y)
@@ -749,10 +753,10 @@
 	   (store-long-reg imag-tn nfp (+ offset (* 4 word-bytes))))
 	 (let ((imag-tn (complex-double-double-reg-imag-lo-tn x)))
 	   (store-long-reg imag-tn nfp (+ offset (* 6 word-bytes)))))))))
-#+long-float
-(define-move-vop move-complex-long-float-argument :move-argument
-  (complex-long-reg descriptor-reg) (complex-long-reg))
 
+#+double-double
+(define-move-vop move-complex-double-double-float-argument :move-argument
+  (complex-double-double-reg descriptor-reg) (complex-double-double-reg))
 
 (define-move-vop move-argument :move-argument
   (single-reg double-reg #+long-float long-reg #+double-double double-double-reg
diff --git a/compiler/x86/float.lisp b/compiler/x86/float.lisp
index e4e2515cf8f4d9b1a5186d21aef6747e842023b2..3f129c8960604135dea534b2444e043aa854b680 100644
--- a/compiler/x86/float.lisp
+++ b/compiler/x86/float.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.42 2006/06/30 18:41:32 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.43 2006/07/01 13:52:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -653,7 +653,7 @@
   (:args (x :scs (complex-double-double-reg) :to :save))
   (:results (y :scs (descriptor-reg)))
   (:node-var node)
-  (:note "complex double float to pointer coercion")
+  (:note "complex double-double float to pointer coercion")
   (:generator 13
      (with-fixed-allocation (y vm::complex-double-double-float-type
 			       vm::complex-double-double-float-size node)
@@ -905,6 +905,10 @@
 	 (inst fxch imag-tn))))
     ))
 
+#+double-double
+(define-move-vop move-complex-double-double-float-argument :move-argument
+  (complex-double-double-reg descriptor-reg) (complex-double-double-reg))
+
 (define-move-vop move-argument :move-argument
   (single-reg double-reg #+long-float long-reg
    #+double-double double-double-reg