Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.32 -r1.32.2.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	2 Apr 2013 11:05:18 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	17 Sep 2013 08:05:03 -0000	1.32.2.1
@@ -224,15 +224,15 @@
 
     @see permission::require_write_permission
 } {
-    if { [permission::permission_p -privilege write -object_id $object_id -party_id $party_id] } {
-        return 1
-    }
     if { $creation_user eq "" } {
         set creation_user [acs_object::get_element -object_id $object_id -element creation_user]
     }
     if { [ad_conn user_id] == $creation_user } {
         return 1
     }
+    if { [permission::permission_p -privilege write -object_id $object_id -party_id $party_id] } {
+        return 1
+    }
     return 0
 }