Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl,v
diff -u -N -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	10 Jan 2007 21:22:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	29 Sep 2013 14:55:33 -0000	1.2.10.1
@@ -41,7 +41,7 @@
 
        set parameter_id [apm_parameter_register $parameter_name $description $package_key $default_value $datatype]
 
-	aa_true "Parameter register succeeded" [exists_and_not_null parameter_id]        
+	aa_true "Parameter register succeeded" [expr {[info exists parameter_id] && $parameter_id ne ""}]
      
     }
 }
@@ -66,7 +66,7 @@
         aa_log "Instance name to be added: $instance_name"
         set error_ocurred [catch {set package_id [apm_package_instance_new -package_key $package_key -instance_name $instance_name ]} err_men]
         aa_log "Error Message $error_ocurred: $err_men "
-        aa_true "Setting the new instance succeeded" [exists_and_not_null package_id]
+        aa_true "Setting the new instance succeeded" [expr {[info exists package_id] && $package_id ne ""}]
         
      
     }