diff --git a/syndicate/bag.rkt b/syndicate/bag.rkt
index 6149082..5be1d51 100644
--- a/syndicate/bag.rkt
+++ b/syndicate/bag.rkt
@@ -8,6 +8,7 @@
          bag-ref
          bag-clear!
          bag-member?
+         bag-key-count
          in-bag
          in-bag/count
          set->bag
@@ -49,6 +50,7 @@
 
 (define bag-clear! hash-clear!)
 (define bag-member? hash-has-key?)
+(define bag-key-count hash-count)
 
 (define-syntax-rule (in-bag piece ...) (in-hash-keys piece ...))
 (define-syntax-rule (in-bag/count piece ...) (in-hash piece ...))