; * src/json.c (json_parse_object): Call make_hash_table directly.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/json.c b/src/json.c
index c64d44b4bac..486253581ff 100644
--- a/src/json.c
+++ b/src/json.c
@@ -1599,8 +1599,7 @@ json_parse_object (struct json_parser *parser)
     case json_object_hashtable:
       {
         EMACS_INT value = (parser->object_workspace_current - first) / 2;
-        result = CALLN (Fmake_hash_table, QCtest, Qequal, QCsize,
-                        make_fixed_natnum (value));
+        result = make_hash_table (&hashtest_equal, value, Weak_None, false);
         struct Lisp_Hash_Table *h = XHASH_TABLE (result);
         for (size_t i = first; i < parser->object_workspace_current; i += 2)
           {