diff --git a/src/c/hash.d b/src/c/hash.d
index f580b72f5..c42c61690 100644
--- a/src/c/hash.d
+++ b/src/c/hash.d
@@ -1239,7 +1239,7 @@ cl_hash_table_test(cl_object ht)
   case ecl_htt_equal:   output = @'equal';  break;
   case ecl_htt_equalp:  output = @'equalp'; break;
   case ecl_htt_pack:    output = @'equal';  break;
-  case ecl_htt_generic: output = ht->hash.generic_test;
+  case ecl_htt_generic: output = ht->hash.generic_test; break;
   default: FEerror("hash-table-test: unknown test.", 0);
   }
   @(return output);
diff --git a/src/tests/normal-tests/hash-tables.lsp b/src/tests/normal-tests/hash-tables.lsp
index 1e979040c..7e7f32e15 100644
--- a/src/tests/normal-tests/hash-tables.lsp
+++ b/src/tests/normal-tests/hash-tables.lsp
@@ -147,6 +147,7 @@
           (signals error (gethash "foobar" ht))
           (signals error (setf (gethash "foobar" ht) 15))
           (finishes (remhash 3 ht))
+          (finishes (hash-table-test ht))
           (is (null (gethash 1 ht)))
           (finishes (setf (gethash 55 ht) 0))
           (is (= (gethash 13 ht) 0)))))