Index: openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/utilities-procs.tcl,v
diff -u -N -r1.1.2.12 -r1.1.2.13
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	11 Oct 2022 09:04:58 -0000	1.1.2.12
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	8 Nov 2022 09:55:40 -0000	1.1.2.13
@@ -82,6 +82,10 @@
                           -existing_names {a_ßcoooetcpasswdl#_f__ilename_.extension} \
                           $str]
         aa_equals "Sanitizing to an existing filename with resolving is fine" $resolved [string tolower "A_ßCoOOetcpasswdl#_f__ilename_.extension"]_2
+
+        aa_false "Sanitizing with not balanced parantheses in the filename does not throw an error" [catch {
+            aa_equals "Sanitizing to an existing filename with resolving is fine" [ad_sanitize_filename -existing_names {foo( foo(-3} "foo("] "foo(-4"
+        }]
     }