diff -Nur -x '*.orig' -x '*.rej' smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm
--- smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm	2005-02-16 15:02:25.000000000 +1100
+++ mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm	2006-03-08 17:07:14.931542135 +1100
@@ -77,8 +77,7 @@
     my $q = $self->{cgi};
 
     my $status = $q->param('status');
-    my $mailman = $self->{db}->get('mailman');
-    $mailman->set_prop('status', $status);
+    $self->{db}->set_prop('mailman', 'status', $status, type => 'service');
 
     system(SIGEVENT, 'mailman-update') == 0
         or return $self->error('ERR_UPDATE');