--- capa/capa51/GUITools/capastats.tcl	1999/11/02 19:10:44	1.6
+++ capa/capa51/GUITools/capastats.tcl	1999/12/13 21:38:44	1.7
@@ -1953,7 +1953,7 @@ proc CToutput { num cmdnum } {
 	pack $buttonFrame.wrap $buttonFrame.save $buttonFrame.print \
 	    $buttonFrame.dismiss -side left
     }
-    set index [$gCT($num.output) index end]
+    set index [$gCT($num.output) index end-1c]
     foreach line $gCT(output.$cmdnum) {
 	eval $gCT($num.output) insert end $line
     }
@@ -2845,7 +2845,7 @@ proc CTcreateReportDialog { num cmdnum }
 	-variable gCT(summary.filename.$cmdnum) -value specified
     set entryFrame [frame $fileFrame.entryFrame]
     button $fileFrame.select -text "Select File" \
-	    -command "selectOutputFile"
+	    -command "CTselectOutputFile $cmdnum"
     pack $fileFrame.label $entryFrame $fileFrame.select -side left
     entry $entryFrame.entry -textvariable gCT(summary.file.$cmdnum) \
 	-xscrollcommand "$entryFrame.scroll set"
@@ -2867,6 +2867,17 @@ proc CTcreateReportDialog { num cmdnum }
 }
 
 ###########################################################
+# CTselectOutputFile
+###########################################################
+###########################################################
+###########################################################
+proc CTselectOutputFile { num } {
+    global gCT
+    set gCT(summary.filename.$num) specified
+    if { "" != [ set temp [tk_getSaveFile] ] } {set gCT(summary.file.$num) $temp}
+}    
+
+###########################################################
 # CTcreateSummaryReport
 ###########################################################
 ###########################################################