Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	23 Sep 2009 21:12:11 -0000	1.15
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	27 Oct 2014 16:39:45 -0000	1.16
@@ -281,8 +281,8 @@
     @author Peter Marklund, Dave Bauer
 } {
     # Make sure we have a url to work with
-    if { [empty_string_p $url] } {
-          if { [empty_string_p $node_id] } {
+    if { $url eq "" } {
+          if { $node_id eq "" } {
               set url "/"
           } else {
               set url [site_node::get_url -node_id $node_id]