Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.22.4.1 -r1.22.4.2
--- openacs-4/packages/categories/tcl/widget-procs.tcl	29 Sep 2013 12:04:41 -0000	1.22.4.1
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	11 Oct 2013 12:08:21 -0000	1.22.4.2
@@ -48,7 +48,6 @@
         set display_widget $element(display_widget)
     }
     set ms_attributes(multiple) {}
-
     set all_single_p [info exists attributes(single)]
 
     # Determine the size automatically for a multiselect
@@ -65,30 +64,31 @@
     set require_category_p f
     set widget {}
 
-    if { [exists_and_not_null element(value)] && [llength $element(value)] == 2 } {
+    if { [info exists element(value)] && $element(value) ne "" 
+	 && [llength $element(value)] == 2 
+     } {
         # Legacy method for passing parameters
-        set object_id [lindex $element(value) 0]
-        set package_id [lindex $element(value) 1]
+	lassign $element(value) object_id package_id
     } else {
-        if { [exists_and_not_null element(category_application_id)] } {
+        if { [info exists element(category_application_id)] && $element(category_application_id) ne "" } {
             set package_id $element(category_application_id)
         }
-        if { [exists_and_not_null element(category_object_id)] } {
+        if { [info exists element(category_object_id)] && $element(category_object_id) ne "" } {
             set object_id $element(category_object_id)
         }
-        if { [exists_and_not_null element(category_tree_id)] } {
+        if { [info exists element(category_tree_id)] && $element(category_tree_id) ne "" } {
             set tree_id $element(category_tree_id)
         }
-        if { [exists_and_not_null element(category_subtree_id)] } {
+        if { [info exists element(category_subtree_id)] && $element(category_subtree_id) ne "" } {
             set subtree_id $element(category_subtree_id)
         }
-        if { [exists_and_not_null element(category_assign_single_p)] } {
+        if { [info exists element(category_assign_single_p)] && $element(category_assign_single_p) ne "" } {
             set assign_single_p $element(category_assign_single_p)
         }
-        if { [exists_and_not_null element(category_require_category_p)] } {
+        if { [info exists element(category_require_category_p)] && $element(category_require_category_p) ne "" } {
             set require_category_p $element(category_require_category_p)
         }
-        if { [exists_and_not_null element(category_require_category_p)] } {
+        if { [info exists element(category_widget)] && $element(category_widget) ne "" } {
             set widget $element(category_widget)
         }
     }
@@ -226,20 +226,22 @@
     set subtree_id {}
     set require_category_p f
 
-    if { [exists_and_not_null element(value)] && [llength $element(value)] == 2 } {
+    if { [info exists element(value)] && $element(value) ne "" 
+	 && [llength $element(value)] == 2 
+    } {
         # Legacy method for passing parameters
         set package_id [lindex $element(value) 1]
     } else {
-        if { [exists_and_not_null element(category_application_id)] } {
+        if { [info exists element(category_application_id)] && $element(category_application_id) ne "" } {
             set package_id $element(category_application_id)
         }
-        if { [exists_and_not_null element(category_tree_id)] } {
+        if { [info exists element(category_tree_id)] && $element(category_tree_id) ne "" } {
             set tree_id $element(category_tree_id)
         }
-        if { [exists_and_not_null element(category_subtree_id)] } {
+        if { [info exists element(category_subtree_id)] && $element(category_subtree_id) ne "" } {
             set subtree_id $element(category_subtree_id)
         }
-        if { [exists_and_not_null element(category_require_category_p)] } {
+        if { [info exists element(category_require_category_p)] && $element(category_require_category_p) ne "" } {
             set require_category_p $element(category_require_category_p)
         }
     }