 (defn- get-system-acls
   "Returns ACLs which grant the given permission to the context user for system-level groups."
   [context permission]
-  (let [context (put-sids-in-context context)]
-    (seq (acl/get-permitting-acls context :system-object "GROUP" permission))))
+  (seq (acl/get-permitting-acls context :system-object "GROUP" permission)))
 
 (defn- get-all-provider-acls
   "Returns all ACLs that grant given permission to context user for any provider-level groups."
   [context permission]
-  (let [context (put-sids-in-context context)]
-    (acl/get-permitting-acls context :provider-object "GROUP" permission)))
+  (acl/get-permitting-acls context :provider-object "GROUP" permission))
 
 (defn- get-provider-acls
   "Returns any ACLs that grant the given permission to the context user for the specified group object."

  "Throws a permission service error if no ACLs exist that grant the desired permission to the
  context user on group."
  [context action-description permission group]
  ; (proto-repl.saved-values/save 12)
  (when-not (or (get-instance-acls context permission group)
                (get-provider-acls context permission group)
                (get-system-acls context permission))
    (throw-group-permission-error action-description group)))

(defn verify-can-create-group
  "Throws a service error if the context user cannot create a group under provider-id."

  (when-let [target-guid (:legacy-guid group)]
    (seq
      (filter #(= target-guid (-> % :single-instance-object-identity :target-guid))
              (acl/get-permitting-acls context
                                       :single-instance-object "GROUP" permission)))))

(defn- describe-group
