     (equals ?kind AdviceKind/AfterThrowing)))
 
 (defn
-  adviceafterreturning
+  advice|afterreturning
   "Relation of after returning advices."
   [?advice]
   (fresh [?kind]

   - member/1 (and its subrelations method/1, ...)
   - intertype/1  
   - advice/1
   - type/1 (and its subrelations advice/1, class/1, ...).

   For retrieving the first enclosing entity of a specific kind, 
   see relations shadow-ancestor|method/2, shadow-ancestor|advice/2, ..."

    (equals ?kind AdviceKind/After)))

(defn
  advice|afterthrowing
  "Relation of after throwing advices."
  [?advice]
  (fresh [?kind]
