Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v
diff -u -r1.8 -r1.8.4.1
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	9 Jan 2010 01:56:09 -0000	1.8
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	30 Sep 2013 11:09:27 -0000	1.8.4.1
@@ -15,11 +15,11 @@
     # Take the IP list (space or comma seperated) and turn it into a tcl list.
     set IPs [list]
     foreach ip [lsort -unique [split [parameter::get -package_id [ds_instance_id] -parameter EnabledIPs -default *] { ,}]] { 
-        if {[string equal $ip "*"]} {
+        if {$ip eq "*"} {
             # a star means anything will match so just use the * instead
             set IPs "*"
             break
-        } elseif {![empty_string_p $ip]} {
+        } elseif {$ip ne ""} {
             lappend IPs $ip
         }
     }