Index: openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	31 Mar 2004 22:31:54 -0000	1.3
+++ openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	1 Apr 2004 12:09:44 -0000	1.4
@@ -171,7 +171,7 @@
                 set mount_point [apm_required_attribute_value $action mount-point]
 
                 regexp {(.*)/([^/]*)$} $mount_point match parent_url mount_point
-                if {$parent_url eq ""} { 
+                if {[string eq $parent_url ""]} { 
                     set parent_url /
                 }
                 set parent_id [site_node::get_node_id -url $parent_url]