Index: openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl	25 Jul 2011 19:36:23 -0000	1.5
+++ openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl	25 Apr 2018 19:47:48 -0000	1.6
@@ -428,7 +428,7 @@
     set activity(mActiveOrder) $order
     unset order
 
-    set children [list]
+    set children {}
     foreach child [$node childNodes] {
         switch -- [$child localName] {
             item {
@@ -712,8 +712,8 @@
 
     upvar $result local_result
 
-    set objectives [list]
-    set shortcuts [list]
+    set objectives {}
+    set shortcuts {}
     foreach child [$node childNodes] {
         if { [$child nodeType] eq "ELEMENT_NODE" } {
             if { [$child localName] eq "primaryObjective" || [$child localName] eq "objective" } {
@@ -767,7 +767,7 @@
         return -code error "More than one minNormalizedMeasure element detected for seq object"
     }
 
-    set maps [list]
+    set maps {}
     foreach child [$node getElementsByTagName "imsss:mapInfo"] {
         lappend maps \
             [scorm_core::rte_activity_tree::seq_objective_map -node $child]
@@ -790,7 +790,7 @@
     -node:required
 } {
 
-    set maps [list]
+    set maps {}
     if { [$node hasAttribute "objectiveID"] } {
         set objective_id [$node getAttribute "objectiveID"]
     }
@@ -848,9 +848,9 @@
 
     upvar $result local_result
 
-    set pre_rules [list]
-    set exit_rules [list]
-    set post_rules [list]
+    set pre_rules {}
+    set exit_rules {}
+    set post_rules {}
 
     foreach child [$node childNodes] {
         if { [$child nodeType] eq "ELEMENT_NODE" } {
@@ -912,7 +912,7 @@
 } {
     array set rule [scorm_core::rte_activity_tree::seq_rule_attributes]
 
-    set condition_sets [list]
+    set condition_sets {}
     foreach child [$node childNodes] {
         if { [$child nodeType] eq "ELEMENT_NODE" } {
             switch [$child localName] {
@@ -970,7 +970,7 @@
 
     array set rollup_ruleset [scorm_core::rte_activity_tree::rollup_ruleset_attributes]
 
-    set rollup_rules [list]
+    set rollup_rules {}
     foreach child [$node getElementsByTagName "imsss:rollupRule"] {
         lappend rollup_rules \
             [scorm_core::rte_activity_tree::seq_rollup_rule -node $child]
@@ -1005,7 +1005,7 @@
         set rule(mMinPercent) [$node getAttribute "minimumPercent"]
     }
 
-    set condition_sets [list]
+    set condition_sets {}
     foreach child [$node childNodes] {
         if { [$child nodeType] eq "ELEMENT_NODE" } {
             switch [$child localName] {
@@ -1082,7 +1082,7 @@
         set condition_set(mCombination) [$node getAttribute "conditionCombination"]
     }
 
-    set conditions [list]
+    set conditions {}
     foreach child [$node getElementsByTagName $tag_name] {
         lappend conditions \
             [scorm_core::rte_activity_tree::seq_condition \
@@ -1138,7 +1138,7 @@
 } {
     upvar $result local_result
 
-    set resources [list]
+    set resources {}
     foreach child [$node getElementsByTagName "auxiliaryResource"] {
         lappend resources \
             [scorm_core::rte_activity_tree::auxiliary_resource -node $child]