--- capa/capa51/GUITools/scorer.tcl	1999/12/03 18:39:38	1.5
+++ capa/capa51/GUITools/scorer.tcl	1999/12/16 22:18:35	1.7
@@ -412,6 +412,8 @@ proc insertQuest { num where } {
 	}
     }
     renumberScorerQuest $num
+    update
+    $gScorer(quest.$num) see $where
 }
 
 ###########################################################
@@ -507,6 +509,7 @@ proc cloneScorerQuest { num } {
     
     set temp [ $gScorer(quest.$num) get [ $gScorer(quest.$num) curselection ] ]
     $gScorer(quest.$num) insert end $temp
+    $gScorer(quest.$num) see end
     renumberScorerQuest $num
 }
 
@@ -944,7 +947,7 @@ proc getAnswers { PID set maxQuest num }
     global gFile gCapaConfig
     set pwd [pwd]
     cd $gFile($num)
-    set temp [exec $gCapaConfig($num.answers_command) $PID {} 1 $set]
+    set temp [exec $gCapaConfig($num.answers_command) $PID {} 0 $set]
     cd $pwd
     set result ""
     foreach line [split $temp "\n"] {