diff --git a/src/Collections-Unordered/Bag.class.st b/src/Collections-Unordered/Bag.class.st
index 2eb4ce90d7d..9f2b7961c0a 100644
--- a/src/Collections-Unordered/Bag.class.st
+++ b/src/Collections-Unordered/Bag.class.st
@@ -79,6 +79,7 @@ Bag >> asBag [
 { #category : #converting }
 Bag >> asDictionary [
 	"Answer a Dictionary with values and counts (a copy)"
+	"(Bag newFrom: 'aabbbc') asDictionary >>> { 'a'->2. 'b'->3. 'c'->1 }"
  
 	^self valuesAndCounts copy
 ]