Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5460)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5461)
@@ -6522,5 +6522,7 @@
          (atype (if (array-ctype-p ctype) ctype))
          (keyword (if (and atype
-                           (= 1 (length (array-ctype-dimensions atype)))
+                           (let* ((dims (array-ctype-dimensions atype)))
+                             (or (atom dims)
+                                 (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
                     (funcall
@@ -6537,4 +6539,7 @@
          (atype (if vtype (specifier-type vtype)))
          (keyword (if (and atype
+                           (let* ((dims (array-ctype-dimensions atype)))
+                             (or (atom dims)
+                                 (= (length dims) 1)))
                            (not (array-ctype-complexp atype)))
                     (funcall