Index: /trunk/ccl/compiler/nx0.lisp
===================================================================
--- /trunk/ccl/compiler/nx0.lisp	(revision 5130)
+++ /trunk/ccl/compiler/nx0.lisp	(revision 5131)
@@ -2194,5 +2194,5 @@
 
 (defun nx-form-typep (arg type &optional (env *nx-lexical-environment*))
-  (setq type (type-expand type))
+  (setq type (nx-target-type (type-expand type)))
   (if (constantp arg)
     (typep (nx-unquote arg) type)