Index: trunk/matching.lisp
===================================================================
--- trunk/matching.lisp	(revision trunk,21)
+++ trunk/matching.lisp	(revision trunk,24)
@@ -234,5 +234,5 @@
     (list
      (destructuring-bind (head . tail) rule
-       (case head
+       (symcase head
 	 (^ (destructuring-bind (regex) tail
 	      `(if-matches-regex ,input ,regex (,next ,match) ,then ,else)))