Index: openacs-4/packages/xowf-monaco-plugin/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf-monaco-plugin/tcl/test-item-procs.tcl,v
diff -u -r1.1.1.1.2.4 -r1.1.1.1.2.5
--- openacs-4/packages/xowf-monaco-plugin/tcl/test-item-procs.tcl	12 Apr 2022 14:34:43 -0000	1.1.1.1.2.4
+++ openacs-4/packages/xowf-monaco-plugin/tcl/test-item-procs.tcl	12 May 2023 06:32:12 -0000	1.1.1.1.2.5
@@ -14,6 +14,7 @@
   ###########################################################
 
   Class create code_interaction -superclass TestItemField
+  code_interaction set item_type Code
 
   code_interaction instproc initialize {} {
     if {${:__state} ne "after_specs"} return