Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	8 Nov 2008 17:05:38 -0000	1.5
@@ -21,7 +21,7 @@
     set count 0
     db_foreach get_tree "" {
         incr count 10
-        if {[empty_string_p $parent_id]} {
+        if {$parent_id eq ""} {
             # need this as an anchor for toplevel categories
             set parent_id -1
         }