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.89 -r1.90
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	10 Nov 2007 19:56:56 -0000	1.89
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	22 Mar 2008 18:31:32 -0000	1.90
@@ -2189,7 +2189,7 @@
     set parameter "package_instance_name"
     set version_id [apm_version_id_from_package_key $package_key]
 
-    if {![empty_string_p $version_id]} {
+    if {$version_id ne ""} {
         apm::package_version::attributes::get -version_id $version_id -array packages_names
 	# it was added this catch for those packages that does not
 	# have the attribute package instance name, in this case