--- a/SmallSense__EditSupport.st	Thu May 15 14:41:52 2014 +0100
+++ b/SmallSense__EditSupport.st	Thu May 15 16:55:27 2014 +0100
@@ -42,6 +42,14 @@
     "Modified: / 03-02-2014 / 23:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+environment
+    "raise an error: this method should be implemented (TODO)"
+
+    ^ service environment
+
+    "Created: / 15-05-2014 / 16:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 language
     ^ self subclassResponsibility.
 
@@ -380,14 +388,14 @@
             | context |
 
             context := CompletionContext new.
-            context environment: service environment.
+            context environment: self environment.
             context support: self.
             result := completionEngineClass new complete: context
         ].
     ^ result.
 
     "Created: / 27-09-2013 / 13:21:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 13-05-2014 / 12:02:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-05-2014 / 16:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport methodsFor:'private-scanning'!