diff --git a/srfi-69.scm b/srfi-69.scm
index d8a2239..89f22c7 100644
--- a/srfi-69.scm
+++ b/srfi-69.scm
@@ -685,6 +685,7 @@
                                            (cons (cons (##sys#slot pare 0) (##sys#slot pare 1))
                                                  (copy-loop (##sys#slot bucket 1))))))) )])
         (##sys#setslot ht2 2 (##sys#slot ht 2))
+        (##sys#setslot ht2 10 (##sys#slot ht 10))
         ht2 ) ) ) )
 
 (define (hash-table-copy ht)