Index: openacs-4/packages/cms/www/modules/categories/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/delete.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/cms/www/modules/categories/delete.tcl	31 Aug 2006 19:59:05 -0000	1.6.2.1
+++ openacs-4/packages/cms/www/modules/categories/delete.tcl	19 Feb 2007 22:17:43 -0000	1.6.2.2
@@ -11,7 +11,7 @@
 # If nonempty, show error
 if { [string equal $is_empty "f"] } {
 
-  ad_complain "This category contains subcategories and cannot be deleted."
+    util_user_message -message "This category contains subcategories and cannot be deleted."
 
 } else {
 
@@ -21,10 +21,9 @@
   }
 
   # Remove it from the clipboard, if it exists
-  set clip [cms::clipboard::parse_cookie]
-  cms::clipboard::remove_item $clip $mount_point $id
-  cms::clipboard::set_cookie $clip
-  cms::clipboard::free $clip 
+  set new_clip [cms::clipboard::remove_item [cms::clipboard::parse_cookie] $mount_point $id]
+  ad_set_cookie content_marks [cms::clipboard::reassemble_cookie $new_clip]
+  cms::clipboard::free $new_clip 
 
   ad_returnredirect "index?id=$parent_id&mount_point=$mount_point"
 }