--- src/store/elephant/elephant.lisp    2011-05-20 03:41:10.000000000 +0000
+++ src/store/elephant/elephant.lisp.new        2011-05-20 03:41:42.000000000 +0000
@@ -235,7 +235,7 @@
                     (incf count))))
            (map-class #'counter class-name :oids t))
          count))
-      (count-persistent-objects store class-name)))
+      (count-persistent-standard-objects store class-name)))
 
 (defun make-ranged-collector (collector range)
   (let ((offset 0)