Fix typo in cached handler sets.

diff --git a/src/runtime/predicate-dispatch.scm b/src/runtime/predicate-dispatch.scm
index 4096a717e2775316fe4a40b872a5d8582d1a4534..d4ad3b900e35a2f2554f55ab1004c2626af9ebb5 100644 (file)
--- a/src/runtime/predicate-dispatch.scm
+++ b/src/runtime/predicate-dispatch.scm
@@ -252,8 +252,8 @@ USA.
        ((set-default-handler!) set-default-handler!)
         (else (delegate operator))))))
 
-(define (cached-most-specific-handler-set)
-  (cached-handler-set (most-specific-handler-set) object->tag))
+(define (cached-most-specific-handler-set default-handler)
+  (cached-handler-set (most-specific-handler-set default-handler) object->tag))
 
-(define (cached-chaining-handler-set)
-  (cached-handler-set (chaining-handler-set) object->tag))
\ No newline at end of file
+(define (cached-chaining-handler-set default-handler)
+  (cached-handler-set (chaining-handler-set default-handler) object->tag))
\ No newline at end of file