Fix missed reference.

diff --git a/src/runtime/hash-table.scm b/src/runtime/hash-table.scm
index 482f41a00a4817af19e7935cb3a7dd1011b43dbe..caa07094e2e17be75cf0f51d67df98cbc9787beb 100644 (file)
--- a/src/runtime/hash-table.scm
+++ b/src/runtime/hash-table.scm
@@ -164,7 +164,7 @@ USA.
   ((table-type-method:put! (table-type table)) table key datum))
 
 (define (hash-table-update! table key procedure #!optional get-default)
-  (guarantee hash-table? table 'hash-table/modify!)
+  (guarantee hash-table? table 'hash-table-update!)
   ((table-type-method:modify! (table-type table))
    table
    key