Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	7 Oct 2024 16:02:47 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	8 Oct 2024 09:30:57 -0000	1.25
@@ -58,6 +58,12 @@
 
     @author Jeff Davis davis@xarg.net
 } {
+    set installed_packages [db_list get_installed {
+        select distinct package_key
+        from apm_package_versions
+        where installed_p = 't'
+    }]
+
     # couple of local helper procs
     proc ::tcl_p {file} {
         return [expr {[string match {*.tcl} $file] || [ad_file isdirectory $file]}]
@@ -70,10 +76,15 @@
     set count 0
     #inspect every Tcl file in the directory tree starting with $startdir
     foreach file [ad_find_all_files -check_file_func ::tcl_p $startdir] {
-
+        if {![regexp ^.*/packages/([join $installed_packages |])/.*\$ $file]} {
+            continue
+        }
         if {[string match "*/acs-tcl/tcl/test/file-test-procs.tcl" $file]} {
             continue
         }
+
+        incr count
+
         set fp [open $file "r"]
         set data [read $fp]
         close $fp