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 -r1.170 -r1.171
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	13 Sep 2007 20:01:15 -0000	1.170
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	13 Sep 2007 20:48:20 -0000	1.171
@@ -344,15 +344,23 @@
   # tag management, get_tags works on instance or gobally
   #
 
-  Page proc save_tags {-package_id:required -item_id:required -user_id:required tags} {
+  Page proc save_tags {
+       -package_id:required 
+       -item_id:required 
+       -revision_id:required 
+       -user_id:required 
+       tags
+     } {
     db_dml [my qn delete_tags] \
         "delete from xowiki_tags where item_id = $item_id and user_id = $user_id"
     foreach tag $tags {
       db_dml [my qn insert_tag] \
           "insert into xowiki_tags (item_id,package_id, user_id, tag, time) \
            values ($item_id, $package_id, $user_id, :tag, current_timestamp)"
     }
-   }
+    search::queue -object_id $revision_id -event UPDATE
+  }
+
   Page proc get_tags {-package_id:required -item_id -user_id} {
     if {[info exists item_id]} {
       if {[info exists user_id]} {
Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	24 Jul 2007 13:21:39 -0000	1.21
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	13 Sep 2007 20:48:20 -0000	1.22
@@ -59,13 +59,17 @@
       }
     }
   }
+  set package_id [$page package_id]
+  foreach tag [::xowiki::Page get_tags -package_id $package_id -item_id $item_id] {
+    set word($tag) 1
+  }
   #ns_log notice "--sc keywords $revision_id -> [array names word]"
 
   return [list object_id $revision_id title [$page title] \
               content $text keywords [array names word] \
               storage_type text mime text/html \
               syndication [list \
-                        link [::[$page package_id] pretty_link -absolute 1 [$page set name]] \
+                        link [$package_id pretty_link -absolute 1 [$page set name]] \
                         description $text \
                         author [$page set creator] \
                         category "" \
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.100 -r1.101
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	13 Sep 2007 12:03:26 -0000	1.100
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	13 Sep 2007 20:48:20 -0000	1.101
@@ -899,9 +899,13 @@
   }
 
   Page instproc save-tags {} {
-    my instvar package_id item_id
-    ::xowiki::Page save_tags -user_id [::xo::cc user_id] -item_id $item_id \
-        -package_id $package_id [my form_parameter new_tags]
+    my instvar package_id item_id revision_id
+    ::xowiki::Page save_tags \
+	-user_id [::xo::cc user_id] \
+	-item_id $item_id \
+	-revision_id $revision_id \
+        -package_id $package_id \
+	[my form_parameter new_tags]
 
     ::$package_id returnredirect \
         [my query_parameter "return_url" [$package_id url]]