Fix typo.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index c026b62df8ba0d54cdcefe3904f11197912395a3..7f1edad453b8bd95c06e1d60a9a32f2280cca9f0 100644 (file)
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -61,6 +61,7 @@ USA.
          (make-tag name
                    predicate
                   predicate-tagging-strategy:never
+                  'register-predicate!
                    (get-keyword-value keylist 'extra)
                    (get-keyword-value keylist 'description))))
     (for-each (lambda (superset)