--- capa/capa51/GUITools/quizzer.tcl	2000/02/02 19:14:10	1.14
+++ capa/capa51/GUITools/quizzer.tcl	2000/03/22 21:08:02	1.16
@@ -1014,8 +1014,7 @@ proc createDateDialog { toplevel makedef
     button $buttonFrame.cancel -text "Cancel" -command "set gPrompt2(ok) 0"
     set gDates(optBut) [ button $buttonFrame.options -text "More Options" \
 			     -command "addDateOptions"]
-    pack $buttonFrame.help $buttonFrame.set $buttonFrame.cancel $buttonFrame.options \
-	-side left
+    pack $buttonFrame.set $buttonFrame.cancel $buttonFrame.options -side left
     bind $toplevel <Destroy> "set gPrompt2(ok) 0"
     bind $toplevel <KeyPress> "getday open;getday due;getday answer"
     bind $toplevel <Return> {tkTabToWindow [tk_focusNext %W]}
@@ -1145,7 +1144,7 @@ proc changeDate { listbox } {
 	}
     }
     capaGrab release $changeDate
-    bind $changeDate <Destroy> ""
+    catch {bind $changeDate <Destroy> ""}
     destroy $changeDate
     if {$gPrompt2(ok) == 1 } {
 	addCurrentDates $listbox $makedefault $which
@@ -1196,7 +1195,7 @@ proc addDate { listbox } {
 	}
     }
     capaGrab release $addDate
-    bind $addDate <Destroy> ""
+    catch {bind $addDate <Destroy> ""}
     destroy $addDate
     if {$gPrompt2(ok) == 1 } {
 	addCurrentDates $listbox $makedefault
@@ -2029,9 +2028,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 ""
@@ -3872,7 +3873,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 \