Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/Attic/xotcl-test-procs.tcl,v
diff -u -r1.1.2.19 -r1.1.2.20
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	5 Jan 2023 16:49:01 -0000	1.1.2.19
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	5 Jan 2023 16:54:26 -0000	1.1.2.20
@@ -441,7 +441,7 @@
         $object_id $object_id_found_5
 
     aa_false "::xo::dc 1row with 1 parameter, prepared statement with SQL containing semicolon - no error" [catch {
-        ::xo::dc 1row -prepare integer,integer get_object {
+        ::xo::dc 1row -prepare integer get_object {
             select object_id as object_id_found_6
             from acs_objects where object_id = :object_id and title <> '__I:Do:Not:Exist'
         }