Index: openacs-4/packages/acs-subsite/lib/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.tcl,v
diff -u -r1.9.2.4 -r1.9.2.5
--- openacs-4/packages/acs-subsite/lib/applications.tcl	8 Nov 2022 14:02:12 -0000	1.9.2.4
+++ openacs-4/packages/acs-subsite/lib/applications.tcl	23 May 2023 12:19:21 -0000	1.9.2.5
@@ -10,9 +10,10 @@
 set actions [list]
 if { $admin_p } {
     set return_url [ad_return_url]
+    set subsite_url [subsite::get_element -element url]
     lappend actions \
         [_ acs-subsite.Add_new_app] \
-        [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" {
+        [export_vars -base "${subsite_url}admin/applications/application-add" {
             return_url
         }]
 }
@@ -30,11 +31,8 @@
     }
 
 set subsite_node_id [subsite::get_element -element node_id]
-
 set user_id [ad_conn user_id]
-ns_log notice "APPS: subsite_node_id $subsite_node_id, user_id $user_id // [array get ::ad_conn]"
 
-
 db_multirow applications select_applications {
     select p.package_id,
            p.instance_name,