--- capa/capa51/GUITools/quizzer.tcl	2000/01/31 18:34:13	1.13
+++ capa/capa51/GUITools/quizzer.tcl	2000/02/08 22:18:11	1.15
@@ -2029,9 +2029,11 @@ proc checkHeader { numberParsed } {
 #    if { $gFirstTime } { set gFirstTime 0; return }
     set gLoadHeaderSet $gSetNumberText
     set error [catch {getHeaderInfo}]
-    if { [llength $gControlDates] > 2 } {
-	set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] 
-    } 
+    catch { 
+	if { [llength $gControlDates] > 2 } {
+	    set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] 
+	} 
+    }
     if { $error == 1 } {
 	set gHeaderQCount "0"
 	set gControlDates ""
@@ -3638,10 +3640,11 @@ proc printWindow {} {
     pack $print.msg $oneSetFrame $moreSetFrame $buttonFrame -side top 
     pack configure $oneSetFrame $moreSetFrame -anchor w -fill x
    
+    set msg2Frame [frame $moreSetFrame.msg2 -relief solid -borderwidth 2]
     set infoFrame [frame $moreSetFrame.frame1]
-    set setFrame [frame $moreSetFrame.frame2 -relief solid -borderwidth 1]
-    pack $infoFrame $setFrame 
-    pack configure $infoFrame $setFrame -anchor w
+    set msg3Frame [frame $moreSetFrame.msg3 -relief solid -borderwidth 2]
+    set setFrame [frame $moreSetFrame.frame2] 
+    pack $msg2Frame $setFrame $msg3Frame $infoFrame -anchor w
     
     if {[catch {set gPrintSelection(sets)}]} {set gPrintSelection(sets) printCur}
     if {[catch {set gPrintSelection(type)}]} {set gPrintSelection(type) printSpecific}
@@ -3673,6 +3676,7 @@ proc printWindow {} {
     bind $print <Destroy> "removeWindowEntry Print"
     pack $buttonFrame.ok $buttonFrame.cancel -side left
     
+    set msgFrame [frame $oneSetFrame.msg -relief solid -borderwidth 2]
     set currentDviFrame [frame $oneSetFrame.currentDvi]
     set currentPreviewFrame [frame $oneSetFrame.currentPreview]
     set randomFrame [frame $oneSetFrame.random]
@@ -3680,11 +3684,18 @@ proc printWindow {} {
     set sectionFrame [frame $infoFrame.section]
     set multSectionFrame [frame $infoFrame.multsection]
     set wholeClassFrame [frame $infoFrame.wholeClass]
-    pack $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \
+    pack $msgFrame $currentDviFrame $currentPreviewFrame $randomFrame $specificFrame \
 	    $sectionFrame $multSectionFrame $wholeClassFrame -anchor w \
 	    -side top
     pack configure $specificFrame -expand true -fill both
 
+    label $msgFrame.msg -text "Select:"
+    pack $msgFrame.msg -anchor w
+    label $msg2Frame.msg -text "Or Select:"
+    pack $msg2Frame.msg -anchor w
+    label $msg3Frame.msg -text "For:"
+    pack $msg3Frame.msg -anchor w
+
     radiobutton $currentDviFrame.currentDvi -text "Print current .dvi" \
 	    -value "printCurrentDvi" -variable gPrintSelection(type) 
     pack $currentDviFrame.currentDvi -side left 
@@ -3863,7 +3874,7 @@ proc printBody { lprCommand { showComple
     global gCapaConfig gStopPrinting gDonePrinting
 
     set errorMsg ""
-    set error [ catch {exec $gCapaConfig(dvips_command) quiztemp.dvi \
+    set error [ catch {eval exec $gCapaConfig(dvips_command) quiztemp.dvi \
 	    -o quiztemp.ps >& /dev/null} errorMsg ]
     if { $error } {
 	displayError \