Index: /branches/working-0711/ccl/level-1/l1-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 7839)
+++ /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 7840)
@@ -1873,5 +1873,5 @@
 (defun %%1st-arg-eql-method-hack-dcode (dt args)
   (let* ((sym (if (listp args) (car args)(%lexpr-ref args (%lexpr-count args) 0)))
-         (mf (if (symbolp sym) (get args dt))))
+         (mf (if (symbolp sym) (get sym dt))))
     (if mf
       (if (listp args)