--- capa/capa51/GUITools/groupemail.tcl	2000/08/07 20:47:29	1.7
+++ capa/capa51/GUITools/groupemail.tcl	2000/11/13 21:36:17	1.8
@@ -215,7 +215,8 @@ proc emailGetSpecific { num } {
     set allids ""
     foreach element $temp { if { $element != "" } { lappend allids $element } }
     close $fileId
-    puts $allids
+#    puts $allids
+    set gCT($num.studentlist) ""
     set classlid [open [file join $gFile($num) classl] r]
     set aline [gets $classlid]
     while { ![eof $classlid] } {