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.4 -r1.1.2.5
--- openacs-4/packages/xooauth/www/admin/lti-test.tcl	12 Mar 2021 10:22:23 -0000	1.1.2.4
+++ openacs-4/packages/xooauth/www/admin/lti-test.tcl	16 Mar 2021 12:03:42 -0000	1.1.2.5
@@ -67,8 +67,7 @@
         set lti_parameter ""
         if {$p ne ""} {
            foreach pair [split $p "\n"] {
-               if {[regexp {^[^=]+=[^=]+$} $pair]} {
-                   lassign [split $pair "="] key value
+               if {[regexp {^([^=]+)=([^=]+)$} $pair . key value]} {
                    lappend lti_params $key $value
                }
            }
@@ -159,7 +158,7 @@
         set wrapper_id ltiLaunchFormSubmitArea
 
         # create the form
-        require_html_procs
+        xo::require_html_procs
         dom createDocument div lti
         $lti appendFromScript {
             ::html::div id $wrapper_id  {