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 -r1.19 -r1.20
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	15 May 2007 20:14:17 -0000	1.19
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	2 Sep 2008 17:21:29 -0000	1.20
@@ -287,7 +287,7 @@
     @author Dave Bauer (dave@solutiongrove.com)
     @creaton-date 2006-10-26
 } {
-    upvar column_array $array_name
+    upvar $array_name column_array
     db_0or1row get_item_type_info {} -column_array column_array
 }