Index: openacs-4/packages/xowf/tcl/test/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/Attic/test-item-procs.tcl,v
diff -u -r1.1.2.10 -r1.1.2.11
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	6 May 2021 15:17:07 -0000	1.1.2.10
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	7 May 2021 14:55:54 -0000	1.1.2.11
@@ -115,7 +115,7 @@
                 -update [subst {
                     _title "Sample Text Interaction"
                     _name sample_text_0
-                    _nls_language $locale
+                    _nls_language en_US
                     question.points 4
                     question.interaction.text "Given is a very complex situation.<p> How can this be solved?"
                 }]
@@ -134,7 +134,7 @@
                 -update [subst {
                     _title "Sample MC Interaction"
                     _name sample_mc_0
-                    _nls_language $locale
+                    _nls_language en_US
                     question.points 3
                     question.shuffle peruser
                     question.interaction.text "Which of the following colors are used in a traffic lights?"
@@ -158,16 +158,17 @@
                        -form_name en:inclass-exam.wf \
                        -update [subst {
                            _title "Sample Inclass Exam"
-                           _nls_language $locale
-                           question $testfolder/${lang}:sample_mc_0
+                           _nls_language en_US
+                           question $testfolder/en:sample_mc_0
                        }]]
             aa_log "inclass exam created d=[ns_quotehtml $d]"
 
             ###########################################################
             aa_section "Create exam with the selected question"
             ###########################################################
 
-            set page_name [dict get $d page_info stripped_name]
+            #set page_name [dict get $d page_info stripped_name]
+            set page_name [dict get $d page_info link]
             set d [::xowiki::test::edit_form_page \
                        -last_request $d \
                        -path $testfolder/$page_name \