Index: /branches/x8664-call/ccl/compiler/X86/x86-backend.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x86-backend.lisp	(revision 6296)
+++ /branches/x8664-call/ccl/compiler/X86/x86-backend.lisp	(revision 6297)
@@ -138,4 +138,5 @@
 			  (assoc (cadr x) *spec-class-storage-class-alist* :test #'eq)
 			  (eq (cadr x) :label)
+                          (and (consp (cadr x)) (eq (caadr x) :label) (consp (cdadr x)) (null (cddadr x)))
 			  (and (consp (cadr x))
 			       (or