Index: openacs-4/packages/xooauth/www/admin/lti-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/www/admin/lti-test.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/xooauth/www/admin/lti-test.tcl	11 May 2023 16:42:42 -0000	1.1.2.6
+++ openacs-4/packages/xooauth/www/admin/lti-test.tcl	24 Jul 2023 13:10:03 -0000	1.1.2.7
@@ -168,7 +168,7 @@
                     name $form_name id $form_name method "POST" \
                     encType "application/x-www-form-urlencoded" {
                         foreach pair $lti_form_parameters {
-                            foreach {k v} $pair break
+                            lassign $pair k v
                                 if {$k eq "basiclti_submit"} {
                                     ::html::input type submit name basiclti_submit value $basiclti_submit {}
                                 } else {