Index: openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	10 Sep 2015 08:21:55 -0000	1.8.2.1
+++ openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	21 Apr 2017 14:22:45 -0000	1.8.2.2
@@ -670,7 +670,7 @@
 #   drop_while p xs  returns the remaining portion of the list
 #   span p xs        = (takeWhile p xs, dropWhile p xs)
 #
-#   take_until p xs  returns the list of elements upto and including the
+#   take_until p xs  returns the list of elements up to and including the
 #                    first element of xs which satisfies p
 #
 # --------------------------------------------------------------------------------
@@ -702,7 +702,7 @@
     list [take_while $p $xs] [drop_while $p $xs]
 }
 
-ad_proc -public take_until {p xs} "returns the list of elements upto and including the
+ad_proc -public take_until {p xs} "returns the list of elements up to and including the
                             first element of xs which satisfies p" {
     set index 0    
     foreach x $xs {