--- a/SmallSense__CompletionResult.st	Wed Oct 16 15:44:43 2013 +0100
+++ b/SmallSense__CompletionResult.st	Thu Oct 17 01:41:47 2013 +0100
@@ -24,8 +24,28 @@
 !
 
 context:aCompletionContext
-    context := aCompletionContext
+    context := aCompletionContext.
+    self do:[:each | each context: context ].
 
-    "Modified (format): / 26-09-2013 / 11:05:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-10-2013 / 01:13:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!CompletionResult methodsFor:'adding & removing'!
+
+add:anObject
+    anObject context: context.
+    ^ super add: anObject
+
+    "Created: / 17-10-2013 / 01:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+addAll:aCollection
+    "add all elements of the argument, aCollection to the receiver.
+     Returns the argument, aCollection (sigh)."
+
+    aCollection do:[:each | each context: context ].
+    ^ super addAll: aCollection
+
+    "Created: / 17-10-2013 / 01:06:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+