Fix name change missed by previous edit.

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index 8dbe2faf1aa30f2422de1a7d032ea799ce577086..8ac880948d034bf74ec9666f3b5a52ec61e1db0b 100644 (file)
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -1397,7 +1397,7 @@ USA.
      (set! %set-equality-predicate-hasher! (table 'put!)))
    (set-equality-predicate-hasher! eq? hash-by-identity)
    (set-equality-predicate-hasher! eqv? hash-by-eqv)
-   (set-equality-predicate-hasher! equal? hash)))
+   (set-equality-predicate-hasher! equal? hash-by-equal)))
 
 (define (equality-predicate-hasher equality-predicate)
   (let ((hasher (maybe-get-equality-predicate-hasher equality-predicate #f)))