diff --git a/src/sources/common/db-methods.lisp b/src/sources/common/db-methods.lisp
index 188094a..ab6fc3a 100644
--- a/src/sources/common/db-methods.lisp
+++ b/src/sources/common/db-methods.lisp
@@ -133,7 +133,9 @@
     ;; Turn UNIQUE indexes into PRIMARY KEYS now
     ;;
     (unless data-only
-      (pgsql-execute-with-timing :post "Primary Keys" pkeys)
+      (pgsql-execute-with-timing :post "Primary Keys"
+                                 pkeys
+                                 :count (length pkeys))
 
       ;;
       ;; Foreign Key Constraints