Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	2 Sep 2008 17:21:29 -0000	1.20
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	29 Sep 2013 13:40:40 -0000	1.21
@@ -202,7 +202,7 @@
 
 	set subtypes [db_list_of_lists item_subtypes {}]
 	foreach subtype $subtypes {
-	    util_unlist $subtype type_id type
+	    lassign $subtype type_id type
 	    set new_type_id [eval as::[string range $type 3 end]::copy -type_id $type_id]
 	    as::item_rels::new -item_rev_id $new_item_id -target_rev_id $new_type_id -type "[string range $type 0 end-2]rel"
 	}