Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.472.2.32 -r1.472.2.33
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Feb 2015 15:48:19 -0000	1.472.2.32
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Feb 2015 12:32:53 -0000	1.472.2.33
@@ -1704,7 +1704,8 @@
 
     if {[catch {[self]::link configure {*}$options} errorMsg]} {
       ns_log error "$errorMsg\n$::errorInfo"
-      return "<div class='errorMsg'>Error during processing of options [list $options] of link of type [[self]::link info class]:<blockquote>$errorMsg</blockquote></div>"
+      return "<div class='errorMsg'>Error during processing of options [list $options]\
+	of link of type [[self]::link info class]:<blockquote>$errorMsg</blockquote></div>"
     } else {
       return [self]::link
     }
@@ -3871,6 +3872,16 @@
       }
       my map_categories $category_ids
 
+      # Problably, categories should also be moved into the
+      # transaction queue.
+      set queue ::__xowiki__transaction_queue([my item_id])
+      if {[info exists $queue]} {
+        foreach cmd [set $queue] {
+          #ns_log notice ".... executing transaction command: $cmd"
+          {*}$cmd
+        }
+      }
+
       my save -use_given_publish_date $use_given_publish_date
       if {$old_name ne $name} {
         $package_id flush_name_cache -name $old_name -parent_id [my parent_id]