Index: openacs-4/packages/assessment/lib/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/assessment/lib/assessment.tcl	3 Sep 2024 15:37:35 -0000	1.34
+++ openacs-4/packages/assessment/lib/assessment.tcl	9 Oct 2024 14:21:40 -0000	1.35
@@ -448,11 +448,9 @@
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]
 
     if {$presentation_type eq "rb" || $presentation_type eq "cb"} {
-        array set item [as::item::item_data -as_item_id $as_item_id]
-        array set type [as::item_display_$presentation_type\::data -type_id $item(display_type_id)]
-        set choice_orientation $type(choice_orientation)
-        array unset item
-        array unset type
+        set item [as::item::item_data -as_item_id $as_item_id]
+        set type [as::item_display_$presentation_type\::data -type_id [dict get $item display_type_id]]
+        set choice_orientation [dict get $type choice_orientation]
     } else {
         set choice_orientation ""
     }