--- capa/capa51/GUITools/capastats.tcl	2000/02/02 19:14:10	1.12
+++ capa/capa51/GUITools/capastats.tcl	2000/02/22 18:10:27	1.13
@@ -597,7 +597,9 @@ proc CTparseSubmissionsLine { aline num
     set gCT($num.response) ""
     set interesting 0
     set current 1
-    foreach {quest response} [lrange $aline 2 end] {
+    foreach element [lrange $aline 2 end] {
+	set quest [lindex $element 0]
+	set response [lindex $element 1]
 	if { $quest == "" } break
 	while { $quest > $current } {
 	    lappend gCT($num.response) {}