Index: /trunk/ccl/level-0/l0-array.lisp
===================================================================
--- /trunk/ccl/level-0/l0-array.lisp	(revision 329)
+++ /trunk/ccl/level-0/l0-array.lisp	(revision 330)
@@ -532,6 +532,6 @@
        (float
         (case (numeric-ctype-format ctype)
-          (double-float ppc32::subtag-double-float-vector)
-          (short-float ppc32::subtag-single-float-vector)
+          ((double-float long-float) ppc32::subtag-double-float-vector)
+          ((single-float short-float) ppc32::subtag-single-float-vector)
           (t ppc32::subtag-simple-vector)))
        (t ppc32::subtag-simple-vector)))