Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Mar 2018 00:14:57 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	28 Mar 2018 07:27:10 -0000	1.46
@@ -525,14 +525,14 @@
     aa_equals "error clause invoked on Tcl error" \
         $error_called 1
 
-    # Check that the Tcl error propigates up from the code block
+    # Check that the Tcl error propagates up from the code block
     set error_p [catch {db_transaction { error "BAD CODE"}} errMsg]
-    aa_equals "Tcl error propigates to errMsg from code block" \
+    aa_equals "Tcl error propagates to errMsg from code block" \
         $errMsg "Transaction aborted: BAD CODE"
 
-    # Check that the Tcl error propigates up from the on_error block
+    # Check that the Tcl error propagates up from the on_error block
     set error_p [catch {db_transaction {set foo} on_error { error "BAD CODE"}} errMsg]
-    aa_equals "Tcl error propigates to errMsg from on_error block" \
+    aa_equals "Tcl error propagates to errMsg from on_error block" \
         $errMsg "BAD CODE"