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 -N -r1.34 -r1.35
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	13 Feb 2009 20:28:08 -0000	1.34
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	8 Dec 2012 18:20:36 -0000	1.35
@@ -444,7 +444,7 @@
 
         # Call db_release_unused_handles, only if the library defining it
         # (10-database-procs.tcl) has been sourced yet.
-        if { [llength [info procs db_release_unused_handles]] != 0 } {
+        if { [info commands db_release_unused_handles] ne ""} {
             db_release_unused_handles
         }
     }