Index: openacs-4/packages/categories/www/cadmin/category-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	11 Dec 2003 21:40:00 -0000	1.2
@@ -17,7 +17,7 @@
     category::delete $category_id
     category_tree::flush_cache $tree_id
 } on_error {
-    ad_return_complaint "Error Deleting Node" "<p> This node contains leaf (child) nodes. If you really want to delete those leaf nodes, plesae delete them first. Thank you."
+    ad_return_complaint 1 "Error Deleting Node<p>This node contains leaf (child) nodes. If you really want to delete those leaf nodes, plesae delete them first. Thank you."
     return
 }