--- trunk/lib/WebPAC/Store.pm	2007/05/27 11:27:12	852
+++ trunk/lib/WebPAC/Store.pm	2007/05/27 14:09:30	853
@@ -229,7 +229,7 @@
 	my $args = {@_};
 
 	my $log = $self->_get_logger;
-	$log->debug("save_ds arguments:", dump( \@_ ));
+	$log->debug("save_ds arguments:", sub { dump( \@_ ) });
 
 	foreach my $f (qw/id ds/) {
 		$log->logconfess("need $f") unless (defined($args->{$f}));