diff --git a/src/tests/normal-tests/hash-tables.lsp b/src/tests/normal-tests/hash-tables.lsp
index 93e6ba4e2..d7d0d1d3e 100644
--- a/src/tests/normal-tests/hash-tables.lsp
+++ b/src/tests/normal-tests/hash-tables.lsp
@@ -69,4 +69,10 @@
 ;;; Synchronization
 (test hash-tables.sync
   (let ((ht (make-hash-table :synchronized t)))
-    (is-true (ext:hash-table-synchronized-p ht))))
+    (is-true (ext:hash-table-synchronized-p ht))
+    (setf (gethash :foo ht) 3)
+    (setf (gethash :bar ht) 4)
+    (is (= 2 (hash-table-count ht)))
+    (is (= 3 (gethash :foo ht)))
+    (is-true (remhash :bar ht))
+    (is (= 1 (hash-table-count ht)))))