Index: openacs-4/packages/acs-admin/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-admin/www/index.tcl	31 Dec 2003 01:03:44 -0000	1.10
+++ openacs-4/packages/acs-admin/www/index.tcl	10 Jan 2007 21:21:59 -0000	1.11
@@ -13,7 +13,7 @@
     array set node [site_node::get -node_id $node_id]
     set parent_id $node(parent_id)
 
-    while { ![empty_string_p $parent_id] } {
+    while { $parent_id ne "" } {
         array unset node
         array set node [site_node::get -node_id $parent_id]
         set path_pretty "$node(instance_name) > $path_pretty"