diff --git a/tests/float-tran.lisp b/tests/float-tran.lisp
index 8eb1990a4debfeb36cf68a69e2b395e4a7c2dad0..0af83e885332b0ccd61501d8a2da6c6a5ad50a9f 100644
--- a/tests/float-tran.lisp
+++ b/tests/float-tran.lisp
@@ -28,7 +28,7 @@
   #+double-double
   (assert-equalp (c::specifier-type '(integer -1073 1024))
 		 (c::decode-float-exp-derive-type-aux
-		  (c::specifier-type 'double-double-float)))
+		  (c::specifier-type 'kernel:double-double-float)))
   (assert-equalp (c::specifier-type '(integer 2 8))
 		 (c::decode-float-exp-derive-type-aux
 		  (c::specifier-type '(double-float 2d0 128d0)))))