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 -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	27 Oct 2014 16:40:10 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	7 Aug 2017 23:48:00 -0000	1.4
@@ -64,10 +64,16 @@
         
         aa_log "Package to be instantiated: $package_key"
         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 "
+        set error_occurred [catch {set package_id [apm_package_instance_new -package_key $package_key -instance_name $instance_name ]} err_men]
+        aa_log "Error Message $error_occurred: $err_men "
         aa_true "Setting the new instance succeeded" [expr {[info exists package_id] && $package_id ne ""}]
         
      
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: