Index: openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl,v
diff -u -r1.5 -r1.5.10.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	10 Jan 2007 21:22:08 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	27 Aug 2013 12:20:37 -0000	1.5.10.1
@@ -28,7 +28,7 @@
         {html {size 30}}
         {validate {
             empty_or_not_exists 
-            {expr \[empty_string_p \$value\] || \[catch { site_node::get_from_url -url "[ad_conn package_url]\$value/" -exact }\]}
+	  {\$value\ eq {} || \[catch { site_node::get_from_url -url "[ad_conn package_url]\$value/" -exact }\]}
             {This folder name is already used.}
         }}
     }