Index: openacs-4/packages/categories/lib/categorize.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/categorize.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/lib/categorize.tcl	10 Mar 2005 18:27:41 -0000	1.1
+++ openacs-4/packages/categories/lib/categorize.tcl	27 Oct 2014 16:41:10 -0000	1.2
@@ -1,8 +1,8 @@
-if {![exists_and_not_null object_id]} {
+if {![info exists object_id] || $object_id eq ""} {
     ad_complain "You must specify an object to categorize"
 }
 
-if {![exists_and_not_null container_id]} {
+if {![info exists container_id] || $container_id eq ""} {
     set container_id [ad_conn subsite_id]
 }