Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 14308)
+++ /trunk/source/compiler/nx1.lisp	(revision 14309)
@@ -52,11 +52,16 @@
     (let* ((ctype (handler-case (values-specifier-type (nx-target-type typespec) env)
                     (parse-unknown-type (c)
-                      (when whine
-			(nx1-whine :unknown-type-in-declaration (parse-unknown-type-specifier c)))
-                      *wild-type*)
+                      (if whine
+			(progn
+			  (nx1-whine :unknown-type-in-declaration
+				     (parse-unknown-type-specifier c))
+			  *wild-type*)
+			(specifier-type typespec env)))
                     (program-error (c)
-		      (when whine
-			(nx1-whine :invalid-type typespec c))
-                      *wild-type*)))
+		      (if whine
+			(progn
+			  (nx1-whine :invalid-type typespec c)
+			  *wild-type*)
+			(specifier-type typespec)))))
            (new (ctype-spec ctype)))
       (nx-target-type (type-specifier (if new (specifier-type new) ctype))))))