Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.84 -r1.85
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	10 Mar 2005 15:20:48 -0000	1.84
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	17 Mar 2005 08:33:04 -0000	1.85
@@ -1986,7 +1986,7 @@
     set __the_body__ [read $file]
     close $file
     # Interpolate the vars.
-    if {![empty_string_p binds]} { 
+    if {![empty_string_p $binds]} { 
         foreach {var val} $binds {
             set $var [ad_quotehtml $val]
         }