--- a/Workspace.st	Tue Mar 07 18:31:57 2017 +0100
+++ b/Workspace.st	Thu Mar 09 10:49:44 2017 +0100
@@ -682,9 +682,11 @@
 !
 
 editedMethodOrClass:aMethodOrClass
-    "for the code completion"
+    "Sets the edited method or class (for code completion)"
 
     editedMethodOrClass := aMethodOrClass.
+
+    "Modified (comment): / 09-03-2017 / 10:41:05 / cg"
 !
 
 errorBackgroundColor
@@ -737,10 +739,20 @@
     "Modified (format): / 04-03-2012 / 13:35:00 / cg"
 !
 
+simulatedSelf
+    "the 'self' instance used in an evaluation (also used in code completion of self messages)"
+
+    ^ simulatedSelf
+
+    "Created: / 09-03-2017 / 10:48:27 / cg"
+!
+
 simulatedSelf:anObject
-    "define what self is in an evaluation"
+    "define what self is in an evaluation (also useful in code completion of self messages)"
 
     simulatedSelf := anObject
+
+    "Modified (comment): / 09-03-2017 / 10:48:32 / cg"
 !
 
 warningBackgroundColor