Obviously, that should've been "self", not "myDictionary", as in:

includesAssociation: anAssociation
  ^ (self
      associationAt: anAssociation key
      ifAbsent: [ ^ false ]) value = anAssociation value