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 -r1.9
--- openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	27 Oct 2014 16:40:05 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	7 Aug 2017 23:47:59 -0000	1.9
@@ -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 {
@@ -773,3 +773,9 @@
 namespace export *
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: