--- capa/capa51/GUITools/capastats.tcl	1999/10/18 20:58:33	1.3
+++ capa/capa51/GUITools/capastats.tcl	1999/10/28 16:32:07	1.4
@@ -1511,11 +1511,11 @@ proc CTitemCorrelation { num classpath s
 	    updateStatusBar [expr {$line_cnt/double($maxLine)}] $num
 	}
 	if { $line_cnt == 2 } { 
-	    set aline [string trim $aline]
+	    set aline [string trimright $aline]
 	    set weights [split $aline {}]
 	} 
 	if { $line_cnt > 3} {
-	    set aline [string trim $aline]
+	    set aline [string trimright $aline]
 	    set data  [string range $aline 10 end]
 	    set ans_str [lindex [split $data ","] 0]
 	    set ans_char_list [split $ans_str {} ]
@@ -1576,9 +1576,10 @@ proc CTitemCorrelation { num classpath s
     close $fileId
     removeStatus $num
     # print out the correlation matrix
-#    parray sum_x
-#    parray sum_y
-#    parray prod_xy
+    #parray sum_x
+    #parray sum_y
+    #parray prod_xy
+    #puts $question_cnt
     CTputs $num "   "
     for { set ii 1 } { $ii < $question_cnt } { incr ii } {
 	CTputs $num [format "    %2d" [expr {$ii+1}] ]