Index: /trunk/ccl/compiler/nx0.lisp
===================================================================
--- /trunk/ccl/compiler/nx0.lisp	(revision 6283)
+++ /trunk/ccl/compiler/nx0.lisp	(revision 6284)
@@ -448,5 +448,5 @@
                       (let* ((atype (acode-form-type (cadr form) t))
                              (actype (if atype (specifier-type atype))))
-                        (if actype
+                        (if (typep actype 'array-ctype)
                           (type-specifier (array-ctype-specialized-element-type
                                            actype))))