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 -N -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/acs-subsite/lib/applications.tcl	15 Feb 2022 17:20:09 -0000	1.9.2.3
+++ openacs-4/packages/acs-subsite/lib/applications.tcl	8 Nov 2022 14:02:12 -0000	1.9.2.4
@@ -2,14 +2,18 @@
     Show applications mounted under current subsite
 }
 
-set admin_p [permission::permission_p -object_id [ad_conn subsite_id] -privilege admin -party_id [ad_conn untrusted_user_id]]
+set admin_p [permission::permission_p \
+                 -object_id [ad_conn subsite_id] \
+                 -privilege admin \
+                 -party_id [ad_conn untrusted_user_id]]
 
 set actions [list]
 if { $admin_p } {
+    set return_url [ad_return_url]
     lappend actions \
         [_ acs-subsite.Add_new_app] \
         [export_vars -base "[subsite::get_element -element url]admin/applications/application-add" {
-            { return_url [ad_return_url] }
+            return_url
         }]
 }