Index: openacs-4/contrib/packages/bcms-ui-base/www/manage/category/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms-ui-base/www/manage/category/master.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/bcms-ui-base/www/manage/category/master.tcl	27 Aug 2003 17:33:50 -0000	1.1
+++ openacs-4/contrib/packages/bcms-ui-base/www/manage/category/master.tcl	27 Aug 2003 18:39:52 -0000	1.2
@@ -4,11 +4,12 @@
     set context_url [ad_conn package_url]
 }
 
-regexp {.*/([0-9]+)/*$} $context_url match_p category_id
-
-array set category [bcms::category::get_category -category_id $category_id]
-
-set context_list [bcms::widget::category_context -category_id $category_id]
+if {[regexp {.*/([0-9]+)/*$} $context_url match_p category_id]} {
+    array set category [bcms::category::get_category -category_id $category_id]
+    set context_list [bcms::widget::category_context -category_id $category_id]
+} else {
+    set context_list {}
+}
 set context [linsert $context_list 0 [list "$root_url" "Root Categories"]]
 lappend context $title