Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.234.2.8 -r1.234.2.9
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	24 Nov 2020 15:26:17 -0000	1.234.2.8
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	24 Nov 2020 15:36:42 -0000	1.234.2.9
@@ -1256,7 +1256,9 @@
         @return boolean, or a complaint in the response if
                 complain_if_invalid is set
     } {
-        set validation [dotlrn_community::validate_community_key]
+        set validation [dotlrn_community::validate_community_key \
+                            -community_key $community_key \
+                            -parent_id $parent_id]
         set valid_p [dict get $validation valid_p]
         if {$complain_if_invalid_p && !$valid_p} {
             set errmsg [dict get $validation errmsg]