Index: /branches/working-0711/ccl/level-0/X86/x86-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-0/X86/x86-clos.lisp	(revision 7848)
+++ /branches/working-0711/ccl/level-0/X86/x86-clos.lisp	(revision 7849)
@@ -165,4 +165,5 @@
       (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
       (:code-size x8664::gf-code-size)
+      (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
       (movq (@ (% rsp)) (% ra0))
       (save-frame-variable-arg-count)
@@ -190,4 +191,5 @@
   (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
   (:code-size x8664::gf-code-size)
+  (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
   (check-nargs 1)
   (movq (@ 'dispatch-table (% fn)) (% arg_y))
@@ -198,4 +200,5 @@
   (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
   (:code-size x8664::gf-code-size)
+  (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
   (check-nargs 2)
   (movq (@ 'dispatch-table (% fn)) (% arg_x))