Index: openacs-4/packages/acs-core-docs/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/index.adp,v
diff -u -N -r1.24 -r1.24.6.1
--- openacs-4/packages/acs-core-docs/www/index.adp	22 Jan 2010 12:01:17 -0000	1.24
+++ openacs-4/packages/acs-core-docs/www/index.adp	27 Aug 2013 10:52:32 -0000	1.24.6.1
@@ -49,13 +49,13 @@
 				  "[acs_package_root_dir $package_key]/www/doc/index.*"] 0]
   	
         if { [file exists $index_page] } {
-	    if {![empty_string_p $pretty_name]} {
+	    if {$pretty_name ne ""} {
 	       adp_puts "<li><a href=\"/doc/$package_key/\">$pretty_name</a>\n"
 	    } else {
 	       adp_puts "<li><a href=\"/doc/$package_key/\">$package_key</a>\n"
 	    }
         } else { 
-            if {![empty_string_p $pretty_name]} {
+            if {$pretty_name ne ""} {
 	       adp_puts "<li>$pretty_name\n"
 	    } else {
 	       adp_puts "<li>$package_key\n"
@@ -71,7 +71,7 @@
     adp_puts "</ul>"
 
 set packages [core_docs_uninstalled_packages]
-if { ! [empty_string_p $packages] } { 
+if { $packages ne "" } { 
   adp_puts "\n<h3>Uninstalled packages</h3>\n<ul>"
   foreach {key name} $packages { 
     set index_page [lindex [glob -nocomplain \