--- trunk/lib/Frey/Storage.pm	2008/11/05 08:21:04	293
+++ trunk/lib/Frey/Storage.pm	2008/11/05 08:21:05	294
@@ -21,9 +21,10 @@
 sub store {
 	my $self = shift;
 	my ( $filename, $data ) = @_;
-	$filename .= '.yml';
+	$filename .= '.yml' unless $filename =~ m{\.ya?ml$}i;
 	$self->mkbasepath( $filename );
 	DumpFile( $filename, $data );
+	warn "created $filename ", -s $filename;
 }
 
 =head2 load