--- a/PrototypeLookupAlgorithm.st	Wed Apr 07 18:30:21 2010 +0200
+++ b/PrototypeLookupAlgorithm.st	Wed Apr 07 18:39:47 2010 +0200
@@ -23,6 +23,23 @@
     [see also:]
         jan Vrany's paper on Smalltalk's Meta-Object-Protocol proposal.
 "
+!
+
+examples
+"
+    this is only a test for the lookup; when installed as a class's lookupObject,
+    the lookup will be called from the VM for instances of that class.
+
+    |mthd|
+
+    mthd := self new
+                lookupMethodForSelector:#squared 
+                directedTo:nil 
+                for:100 
+                withArguments:nil 
+                from:nil.
+    mthd valueWithReceiver:100 arguments:#().     
+"
 ! !
 
 !PrototypeLookupAlgorithm class methodsFor:'instance creation'!
@@ -63,5 +80,5 @@
 !PrototypeLookupAlgorithm class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PrototypeLookupAlgorithm.st,v 1.2 2010-04-07 16:30:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PrototypeLookupAlgorithm.st,v 1.3 2010-04-07 16:39:47 cg Exp $'
 ! !