--- a/CacheDict.st	Mon Jun 16 12:09:12 1997 +0200
+++ b/CacheDict.st	Tue Jun 24 19:42:44 1997 +0200
@@ -42,6 +42,21 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |d|
+
+    d := CacheDictionary new:16.
+    1 to:20 do:[:i |
+	d at:i printString put:i.
+    ].
+    21 to:40 do:[:i |
+	d at:i printString put:i.
+    ].
+    d inspect
+"
 ! !
 
 !CacheDictionary methodsFor:'private'!
@@ -119,5 +134,5 @@
 !CacheDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.17 1997-03-01 00:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.18 1997-06-24 17:42:44 cg Exp $'
 ! !

--- a/CacheDictionary.st	Mon Jun 16 12:09:12 1997 +0200
+++ b/CacheDictionary.st	Tue Jun 24 19:42:44 1997 +0200
@@ -42,6 +42,21 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |d|
+
+    d := CacheDictionary new:16.
+    1 to:20 do:[:i |
+	d at:i printString put:i.
+    ].
+    21 to:40 do:[:i |
+	d at:i printString put:i.
+    ].
+    d inspect
+"
 ! !
 
 !CacheDictionary methodsFor:'private'!
@@ -119,5 +134,5 @@
 !CacheDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.17 1997-03-01 00:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.18 1997-06-24 17:42:44 cg Exp $'
 ! !