Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.59 -r1.7.2.60
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	3 May 2020 14:15:58 -0000	1.7.2.59
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	11 May 2020 14:14:10 -0000	1.7.2.60
@@ -42,7 +42,18 @@
   }
   TestItemField set abstract 1
 
-
+  Class create test_item_name -superclass text \
+      -extend_slot_default validator name -ad_doc {
+        Name sanitizer for test items
+  }
+  test_item_name instproc check=name {value} {
+    set valid [regexp {^[[:alnum:]:/_-]+$} $value]
+    if {!$valid} {
+      :uplevel {set __langPkg xowf}
+    }
+    return $valid
+  }
+  
   ###########################################################
   #
   # ::xowiki::formfield::test_item