Index: openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl	7 Aug 2017 23:48:10 -0000	1.3
+++ openacs-4/packages/faq/tcl/test/tclwebtest-procs.tcl	27 Mar 2018 15:54:14 -0000	1.4
@@ -30,7 +30,7 @@
         aa_log "$response_url"
 	if {[string match "*admin/one-faq*" $response_url] } {
 		if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_name"} errmsg] } {
-			aa_error  "faq::twt::new failed $errmsg : Dont't create a New Faq"
+			aa_error  "faq::twt::new failed $errmsg : Don't create a New Faq"
 		} else {
 			aa_log "New faq Created !!"
 		        set response 1
@@ -59,7 +59,7 @@
 	
 	if { [string match "*admin/*" $response_url] } {
 		if {![catch {tclwebtest::link find "$faq_name" } errmsg]} {
-			aa_error "faq::twt::delete failed $errmsg : Dont't delete $faq_name Faq"
+			aa_error "faq::twt::delete failed $errmsg : Don't delete $faq_name Faq"
 		} else {
 			aa_log "Faq Deleted"
 		        set response 1
@@ -95,7 +95,7 @@
 	
 	if {[string match "*admin/one-faq*" $response_url] } {
 		if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_new_name"} errmsg] } {
-			aa_error  "faq::twt::edit_one failed $errmsg : Dont't Edit a Faq"
+			aa_error  "faq::twt::edit_one failed $errmsg : Don't Edit a Faq"
 		} else {
 			aa_log "Faq Edited" 
 		        set response 1
@@ -134,7 +134,7 @@
 
 	if {[string match "*admin/one-faq*" $response_url] } {
 		if { [catch {tclwebtest::form find ~n "faq_add_edit"} errmsg] || [catch {tclwebtest::field find ~v "$faq_new_name"} errmsg] } {
-			aa_error  "faq::twt::edit_two failed $errmsg : Dont't Edit a Faq"
+			aa_error  "faq::twt::edit_two failed $errmsg : Don't Edit a Faq"
 		} else {
 			aa_log "Faq Edited"
 		        set response 1
@@ -167,7 +167,7 @@
 
 	if { [string match "*$faq_page_url*" $response_url] } {
 		if {![catch {tclwebtest::link find ~u  $optionurl } errmsg]} {
-			aa_error "faq::twt::$option failed $errmsg : Dont't $option $faq_name Faq"
+			aa_error "faq::twt::$option failed $errmsg : Don't $option $faq_name Faq"
 		} else {
 			aa_log "Faq $option"
 		        set response 1
@@ -206,7 +206,7 @@
 
 	if { [string match "*admin/one-faq*" $response_url] } {
 		if { [catch {tclwebtest::assert text "$question"} errmsg] } { 
-			aa_error "faq::twt::new_Q_A :  failed $errmsg : Dont't Create New Question"
+			aa_error "faq::twt::new_Q_A :  failed $errmsg : Don't Create New Question"
 		} else {
 			aa_log "New Faq Question Created"
 		        set response 1
@@ -244,7 +244,7 @@
 
 	if { [string match "*admin/one-faq*" $response_url] } {
 		if { [catch {tclwebtest::assert text "$new_question"} errmsg] } { 
-			aa_error "faq::twt::edit_Q_A :  failed $errmsg : Dont't Edit a Question"
+			aa_error "faq::twt::edit_Q_A :  failed $errmsg : Don't Edit a Question"
 		} else {
 			aa_log "Faq Question Edited"
 		        set response 1
@@ -276,7 +276,7 @@
 
 	if { [string match "*admin/one-question*" $response_url] } {
 		if { [catch {tclwebtest::assert text "$question_text"} errmsg] || [catch {tclwebtest::assert text "$answer_text"} errmsg] } { 
-			aa_error "faq::twt::preview_Q_A :  failed $errmsg : Dont't Preview a Question"
+			aa_error "faq::twt::preview_Q_A :  failed $errmsg : Don't Preview a Question"
 		} else {
 			aa_log "Faq Question Previewed"
 		        set response 1
@@ -307,7 +307,7 @@
 	
 	if { [string match "*admin/one-faq*" $response_url] } {	
 		if { [catch {tclwebtest::assert text -fail "$question"} errmsg] } { 
-			aa_error "faq::twt::delete_Q_A :  failed $errmsg : Dont't  Delete a Question"
+			aa_error "faq::twt::delete_Q_A :  failed $errmsg : Don't  Delete a Question"
 		} else {
 			aa_log "Faq Question Deleted"
 		        set response 1
@@ -349,7 +349,7 @@
 	if { [string match "*admin/one-faq*" $response_url] } {
 		tclwebtest::link follow "delete"
 		if { [catch {tclwebtest::assert text "$question"} errmsg] } { 
-			aa_error "faq::twt::insert_after_Q_A :  failed $errmsg : Dont't Insert After a Question"
+			aa_error "faq::twt::insert_after_Q_A :  failed $errmsg : Don't Insert After a Question"
 		} else {
 			aa_log "Faq Question inserted after a nother"
 		        set response 1
@@ -378,7 +378,7 @@
 	set response_url [tclwebtest::response url]
 	
 	if { [string match "*admin/one-faq*" $response_url] } {
-		aa_log "Faq Question swaped with next question"
+		aa_log "Faq Question swapped with next question"
 	        set response 1
 
 	} else {