Index: /branches/working-0711/ccl/level-1/sysutils.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/sysutils.lisp	(revision 12751)
+++ /branches/working-0711/ccl/level-1/sysutils.lisp	(revision 12752)
@@ -615,5 +615,5 @@
          :source-note (compiler-warning-source-note w)
          :warning-type deftype
-         :args (list* (car (compiler-warning-args w)) reason arglist spread-p))))))
+         :args (list (car (compiler-warning-args w)) reason arglist spread-p))))))
 
 (defun verify-deferred-function-warning (w)