diff -Nur -x '*.orig' -x '*.rej' smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update
--- smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update	2006-03-08 12:20:30.172533181 +1100
+++ mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update	2006-03-08 12:20:23.564673035 +1100
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #----------------------------------------------------------------------
-# copyright (C) 2000-2002 Gormand Pty Ltd
+# copyright (C) 2000-2006 Gormand Pty Ltd
 # copyright (C) 2002,2006 Mitel Networks Corporation
 # 
 # This program is free software; you can redistribute it and/or modify
@@ -86,14 +86,20 @@
 {
     my $list = new Mail::Ezmlm;
     
-    my $listOwner = $list->prop("Owner");
-
-    $list->make(-dir      => $listHome,
+    my $thislist = $list->make(
+		-dir      => $listHome,
                 -qmail    => $listAlias,
                 -name     => $listName,
                 -host     => $listHost,
                 -user     => '',
-                -switches => 'aBdfgHiJklMnOpQrStuWx' . " -5 $listOwner" );
+                -switches => 'aBdfgHiJklMnOpQrStuWx'
+		);
+
+    die "List creation failed\n" unless $thislist;
+
+    my $listOwner = $list->prop("Owner");
+
+    $list->update("5 $listOwner");
 }
 elsif ( $event eq "mailinglist-delete" )
 {