Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.178 -r1.179
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Jul 2009 10:09:40 -0000	1.178
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	2 Jul 2009 10:49:05 -0000	1.179
@@ -538,7 +538,7 @@
     # provide links based in untrusted_user_id
     set party_id [::xo::cc set untrusted_user_id]
     if {[info exists privilege]} {
-      #my log "-- checking priv $privilege for [self args]"
+      my log "-- checking priv $privilege for [self args]"
       set granted [expr {$privilege eq "public" ? 1 :
                          [::xo::cc permission -object_id $id -privilege $privilege -party_id $party_id] }]
     } else {
@@ -552,9 +552,9 @@
 	my log "error in check_permissions: $errorMsg"
 	set granted 0
       }
-      #my msg "--p $id check_permissions $object $method ==> $granted"
+      my log "--p $id check_permissions $object $method ==> $granted"
     }
-    #my log "granted=$granted $computed_link"
+    my log "granted=$granted $computed_link"
     if {$granted} {
       return $computed_link
     }
@@ -1506,6 +1506,7 @@
         {package_id write}
       }
       save-form-data     {{package_id write}}
+      save-attributes    {{package_id write}}
       make-live-revision {{package_id write}}
       delete-revision    {{package_id admin}}
       delete             {{package_id admin}}
@@ -1559,6 +1560,7 @@
         {{regexp {name {(weblog|index)$}}} package_id admin} 
         {package_id write}
       }
+      save-attributes    {{package_id write}}
       make-live-revision {{package_id write}}
       delete-revision    swa
       delete             swa
@@ -1612,6 +1614,7 @@
       diff               {{item_id write}}
       edit               {{item_id write}}
       make-live-revision {{item_id write}}
+      save-attributes    {{package_id write}}
       delete-revision    swa
       delete             swa
       save-tags          login
@@ -1675,6 +1678,7 @@
       revisions          {{item_id write}}
       diff               {{item_id write}}
       edit               {{item_id write}}
+      save-attributes    {{item_id write}}
       make-live-revision {{item_id write}}
       delete-revision    swa
       delete             swa