Index: openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	24 Feb 2005 22:00:50 -0000	1.2
+++ openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	31 Jan 2018 21:03:19 -0000	1.3
@@ -121,7 +121,7 @@
         # int test
         set arglist {-int 33} 
         set result [xmlrpc::construct {} $arglist]
-        aa_equals "int contruction" $result "<i4>33</i4>"
+        aa_equals "int construction" $result "<i4>33</i4>"
 
         # array test
         set arglist {-array {