Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	8 Feb 2004 17:36:16 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	10 Jan 2007 21:22:06 -0000	1.10
@@ -47,7 +47,7 @@
                     -folder $folder \
                     -instance_name $instance_name]
 
-    if { [empty_string_p $folder] } {
+    if { $folder eq "" } {
         form set_error subsite folder "This folder name is already used"
         break
     }
@@ -77,7 +77,7 @@
             -user_id [ad_conn user_id]
         
         # Set inheritance (called 'visibility' in form)
-        if { ![string equal $visibility "any"] } {
+        if { $visibility ne "any" } {
             permission::set_not_inherit -object_id $new_package_id
         }