Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.43 -r1.43.8.1
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	17 Mar 2009 01:11:07 -0000	1.43
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	27 Aug 2013 12:20:36 -0000	1.43.8.1
@@ -126,7 +126,7 @@
     </ul>
 
 } {
-    if { [empty_string_p [application_group::group_id_from_package_id -no_complain -package_id $package_id]] } {
+    if { [application_group::group_id_from_package_id -no_complain -package_id $package_id] eq "" } {
         array set node [site_node::get_from_object_id -object_id $package_id]
         set node_id $node(node_id)