Index: openacs-4/packages/acs-subsite/www/doc/image-doc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/doc/image-doc.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/doc/image-doc.tcl	7 Aug 2017 23:47:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/doc/image-doc.tcl	3 Sep 2024 15:37:34 -0000	1.4
@@ -17,8 +17,8 @@
 <table border="0">
 }
 foreach i [glob ../resources/*.*] {
-    set name [file tail $i]
-    if {[file extension $name] in {.js .css}} continue
+    set name [ad_file tail $i]
+    if {[ad_file extension $name] in {.js .css}} continue
     append text {<tr><td><img src="/resources/acs-subsite/} $name {"></td><td> } $name {</td></tr>} \n
 }
 append text "</table>"