Index: /branches/working-0711/ccl/compiler/nx1.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/nx1.lisp	(revision 13155)
+++ /branches/working-0711/ccl/compiler/nx1.lisp	(revision 13156)
@@ -35,5 +35,7 @@
              (if (typep ctype 'function-ctype)
                'function
-               (nx-target-type (type-specifier ctype))))))
+               (if (typep ctype 'values-ctype)
+                 '*
+                 (nx-target-type (type-specifier ctype)))))))
     (let* ((typespec (typespec-for-the typespec))
            (*nx-form-type* typespec)