Index: openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	10 Oct 2003 14:05:36 -0000	1.30
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	14 Dec 2003 16:08:46 -0000	1.31
@@ -66,6 +66,8 @@
     level of the package, are considered documentation files.
     <li>Files with a path component named <code>www</code> or <code>admin-www</code>
     are considered content-page files.
+    <li>Files with a path component named <code>lib</code>
+    are considered include_page files.
     <li>Files under package-key/tcl ending in <code>-procs(-)+()*.tcl)</code> or <code>-init.tcl</code> are considered
     Tcl procedure or Tcl initialization files, respectively.
     <li>File ending in <code>.tcl</code> are considered Tcl utility script files (normally
@@ -143,6 +145,8 @@
 
     } elseif { [lsearch $components_lesser "www"] >= 0 || [lsearch $components_lesser "admin-www"] >= 0 } {
 	set type "content_page"
+    } elseif { [lsearch $components_lesser "lib"] >= 0 } {
+	set type "include_page"
     } elseif { [string equal $extension ".tcl"] && [string equal [lindex $components_lesser 0] "tcl"] } {
         # A .tcl file residing under dir .../package_key/tcl/
         if { [regexp -- {-(procs|init)(-[0-9a-zA-Z]*)?\.tcl$} [file tail $path] "" kind] } {