Index: /branches/working-0711/ccl/level-1/l1-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 9668)
+++ /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 9669)
@@ -2069,4 +2069,5 @@
       ;;; Let %%1st-arg-dcode deal with it.
       (%%1st-arg-dcode dt args))))
+(register-dcode-proto #'%%1st-arg-eql-method-hack-dcode *gf-proto*)
 
 (defun %%1st-two-arg-eql-method-hack-dcode (dt arg1 arg2)
@@ -2075,5 +2076,5 @@
       (funcall mf arg1 arg2)
       (%%1st-two-arg-dcode dt arg1 arg2))))
-(register-dcode-proto #'reader-variable-location-dcode *gf-proto-two-arg*)
+(register-dcode-proto #'%%1st-two-arg-eql-method-hack-dcode *gf-proto-two-arg*)
 
 (defun %%one-arg-eql-method-hack-dcode (dt arg)