--- lib/PXElator/CouchDB.pm	2009/08/30 10:29:40	358
+++ lib/PXElator/CouchDB.pm	2010/01/23 18:31:14	482
@@ -124,7 +124,7 @@
 
 	my $time = time();
 
-	my @caller = caller(0);
+	my @caller = caller(1); # skip store wrapper
 	$caller[3] = (caller(1))[3];
 	$caller[3] =~ s{^.+::}{}; # stip package name from sub
 	$data->{package} = {