X-Git-Url: http://christophe.rhodes.io/gitweb/?p=specializable.git;a=blobdiff_plain;f=accept-specializer.lisp;fp=accept-specializer.lisp;h=3dd7ce7b164f56b0aa9cd043f81cf447ec3d145b;hp=a72b1595918ca6b30b7a065e508ad62e5eafdfc5;hb=249a8366f17d67b9b7e0b668d0b854d48e22d117;hpb=9ee1145d3e1a9cd6cd8ee4ee79c88ebd6056442f

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index a72b159..3dd7ce7 100644
--- a/accept-specializer.lisp
+++ b/accept-specializer.lisp
@@ -117,7 +117,7 @@
 (defmethod generalizer-of-using-class ((gf accept-generic-function) (arg tbnl:request))
   (make-instance 'accept-generalizer
                  :header (tbnl:header-in :accept arg)
-                 :next (class-of arg)))
+                 :next (call-next-method)))
 (defmethod generalizer-equal-hash-key
     ((gf accept-generic-function) (g accept-generalizer))
   `(accept-generalizer ,(header g)))
@@ -193,7 +193,7 @@
 (defmethod generalizer-of-using-class ((gf accept-generic-function) (s string))
   (make-instance 'accept-generalizer
                  :header s
-                 :next (class-of s)))
+                 :next (call-next-method)))
 (defmethod specializer-accepts-p ((s accept-specializer) (string string))
   (q-ok (media-type s) (parse-accept-string string)))