Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	9 Apr 2009 07:55:42 -0000	1.54
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	9 Apr 2009 08:10:07 -0000	1.55
@@ -505,6 +505,8 @@
 	::xowiki::Package initialize -package_id $package_id -init_url false
 	$package_id import_prototype_page weblog
       }
+      db_dml strip_colons_from_tags \
+	    "update xowiki_tags set tag = trim(both ',' from tag)  where tag like '%,%'"
     }
   }
 }
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.343 -r1.344
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	9 Apr 2009 07:55:42 -0000	1.343
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	9 Apr 2009 08:10:07 -0000	1.344
@@ -792,8 +792,8 @@
      } {
     db_dml [my qn delete_tags] \
         "delete from xowiki_tags where item_id = $item_id and user_id = $user_id"
-    #[split $tag " ,;"]
-    foreach tag $tags {
+
+    foreach tag [split $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)"