===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2006/11/10 04:52:27	1.5
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2006/11/10 16:18:59	1.6
@@ -8,8 +8,8 @@
 #
 #   This started as Memo.pm, I just made it work for Keyring.
 #
-# $Id: Keyring.pm,v 1.5 2006/11/10 04:52:27 andrew Exp $
-# $RedRiver: Keyring.pm,v 1.4 2006/11/10 04:21:17 andrew Exp $
+# $Id: Keyring.pm,v 1.6 2006/11/10 16:18:59 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.5 2006/11/10 04:52:27 andrew Exp $
 
 use strict;
 package Palm::Keyring;
@@ -27,7 +27,7 @@
 
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -128,6 +128,13 @@
         $record->{encrypted} = $encrypted;
 	}
 	1;
+}
+
+sub Write
+{
+	my $self = shift;
+	$self->Encrypt() || return undef;
+	return $self->SUPER::Load(@_);
 }
 
 sub Encrypt