Index: openacs-4/packages/acs-admin/lib/service-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/service-parameters.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-admin/lib/service-parameters.tcl	23 Jan 2004 14:29:25 -0000	1.5
+++ openacs-4/packages/acs-admin/lib/service-parameters.tcl	10 Jan 2007 21:21:59 -0000	1.6
@@ -16,7 +16,7 @@
     if { [file exists "[acs_package_root_dir $package_key]/www/"] } {
         catch {
             set url [apm_package_url_from_key $package_key]
-            if { ![empty_string_p $url] && [file exists "[acs_package_root_dir $package_key]/www/admin/"] } {
+            if { $url ne "" && [file exists "[acs_package_root_dir $package_key]/www/admin/"] } {
                 set admin_url "${url}admin/"
             }
             if { [file exists "[acs_package_root_dir $package_key]/www/sitewide-admin/"] } {
@@ -30,7 +30,7 @@
     }
     set instance_name [lang::util::localize $instance_name]
 
-    if { [empty_string_p $url] && [empty_string_p $admin_url] && [empty_string_p $param_url] } {
+    if { $url eq "" && $admin_url eq "" && $param_url eq "" } {
         continue
     }
 }