summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--oop/goops/dispatch.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/oop/goops/dispatch.scm b/oop/goops/dispatch.scm
index 26d832a6e..a1e031f4d 100644
--- a/oop/goops/dispatch.scm
+++ b/oop/goops/dispatch.scm
@@ -261,7 +261,7 @@
(n-specializers
(if (list? specializers)
(length specializers)
- (abs (slot-ref (method-cache-generic-function exp)
+ (+ 1 (slot-ref (method-cache-generic-function exp)
'n-specialized)))))
(let* ((types (map class-of (first-n args n-specializers)))
(entry+cmethod (compute-entry-with-cmethod applicable types)))