Index: openacs-4/packages/bug-tracker/www/admin/category-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/category-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/www/admin/category-edit.tcl	30 May 2011 14:23:14 -0000	1.4
+++ openacs-4/packages/bug-tracker/www/admin/category-edit.tcl	14 Oct 2013 18:14:22 -0000	1.5
@@ -8,7 +8,7 @@
 
 set project_name [bug_tracker::conn project_name]
 
-if { (![info exists keyword_id] && ![info exists parent_id]) || [string equal $type_p "t"] } {
+if { (![info exists keyword_id] && ![info exists parent_id]) || $type_p == "t" } {
     set object_type_name [_ bug-tracker.Category_Type]
 } else {
     set object_type_name [_ bug-tracker.Category]
@@ -29,7 +29,7 @@
     {parent_id:integer(hidden)}
     {heading:text {label $object_type_name}}
 } -new_request {
-    if { ![exists_and_not_null parent_id] } {
+    if { (![info exists parent_id] || $parent_id eq "") } {
         set parent_id [bug_tracker::conn project_root_keyword_id]
     }
 } -select_query {