--- capa/capa51/GUITools/scorer.tcl	1999/12/03 18:39:38	1.5
+++ capa/capa51/GUITools/scorer.tcl	1999/12/13 21:38:44	1.6
@@ -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
 }