hasExactlySamePropertiesThan: aMooseEntity

self allDeclaredProperties size = aMooseEntity allDeclaredProperties size ifFalse: [^ false]. (self allDeclaredProperties collect: [:each | each name]) = (aMooseEntity allDeclaredProperties collect: [:each | each name]) ifFalse: [^ false]. self allDeclaredProperties do: [:each | (each getFrom: self) = (each getFrom: aMooseEntity) ifFalse: [^ false] ]. ^ true

if you have comment on that definition please let us know.