Index: openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/bboard/www/category-new.tcl	3 Sep 2002 13:40:41 -0000	1.2
@@ -30,9 +30,8 @@
       where forum_id = :forum_id
 }
 
-set context_bar \
-	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
-              "Create a Category"]
+set context_bar [ad_context_bar [list "forum?[export_url_vars forum_id]" $forum_name] \
+             "Create a Category"]
 
 set category_id [db_nextval acs_object_id_seq]