Index: /trunk/ccl/compiler/nx0.lisp
===================================================================
--- /trunk/ccl/compiler/nx0.lisp	(revision 257)
+++ /trunk/ccl/compiler/nx0.lisp	(revision 258)
@@ -991,5 +991,5 @@
     (setq
      tags (if toplevel *nx-tags* (afunc-tags afunc))
-     taginfo (assq tagname tags)
+     taginfo (assoc tagname tags)
      parent (afunc-parent afunc))
     (if taginfo