Index: /trunk/ccl/lib/number-case-macro.lisp
===================================================================
--- /trunk/ccl/lib/number-case-macro.lisp	(revision 448)
+++ /trunk/ccl/lib/number-case-macro.lisp	(revision 449)
@@ -112,5 +112,4 @@
                ,@(if (not t-case)
                    `((t (setq ,var (%kernel-restart $xwrongtype ,var ',(nd-type-compose selectors-so-far)))
-                        ; this causes compiler to put event-check at top - phooey
                         (go ,tag)))))))))))