Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	7 Aug 2017 23:47:58 -0000	1.17
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	22 Apr 2018 19:22:23 -0000	1.18
@@ -35,7 +35,7 @@
 
     # Check if the party is a member of the application group, OR
     # the party *is* the application group.  This proc considers the
-    # applcation group to contain itself.
+    # application group to contain itself.
     if {$include_self_p} {
     set found_p [db_string app_group_contains_party_p {
         select case when exists (
@@ -117,7 +117,7 @@
 
     # Check if the party is a member of the application group, OR
     # the party *is* the application group.  This proc considers the
-    # applcation group to contain itself.
+    # application group to contain itself.
     set found_p [db_string app_group_contains_segment_p {}]
 
     return $found_p