--- trunk/bin/storableedit.pl	2009/09/24 12:48:08	44
+++ trunk/bin/storableedit.pl	2009/09/24 13:37:53	45
@@ -50,7 +50,7 @@
 	my $k = $o->{path}->[0] || return $v;
 	return $v unless $k =~ m{#};
 #	warn "## $k = $v\n";
-	Sack::Digest->undigest_node_k_v(0, $k, $v);
+	$o->{_digest_}->undigest_node_k_v(0, $k, $v);
 }
 
 sub new {
@@ -58,6 +58,7 @@
 	my $class=(ref($o) || $o);
 	my $newo=bless {}, $class;
 	$newo->init(@_);
+	$newo->{_digest_} = Sack::Digest->new( port => 0 );
 	return $newo;
 }