Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl,v
diff -u -r1.1.2.18 -r1.1.2.19
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	4 Jan 2023 11:32:44 -0000	1.1.2.18
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	5 Jan 2023 16:49:01 -0000	1.1.2.19
@@ -440,6 +440,16 @@
     aa_equals "::xo::dc 1row with 2 parameter, prepared statement (alt. format) - value was returned" \
         $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 {
+            select object_id as object_id_found_6
+            from acs_objects where object_id = :object_id and title <> '__I:Do:Not:Exist'
+        }
+    }]
+
+    aa_equals "::xo::dc 1row with 1 parameter, prepared statement with SQL containing semicolon - value was returned" \
+        $object_id $object_id_found_6
+
 }