--- a/Workspace.st	Wed Sep 04 21:02:27 2002 +0200
+++ b/Workspace.st	Wed Sep 04 22:11:46 2002 +0200
@@ -14,7 +14,7 @@
 
 TextCollector subclass:#Workspace
 	instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor
-		commentStrings autoDefineWorkspaceVariables'
+		commentStrings autoDefineWorkspaceVariables simulatedSelf'
 	classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor
 		DefaultErrorBackgroundColor WorkspaceVariables'
 	poolDictionaries:''
@@ -279,6 +279,12 @@
     doItAction := aOneArgBlock
 
     "Modified: 27.2.1996 / 15:31:37 / cg"
+!
+
+simulatedSelf:anObject
+    "define what self is in an evaluation"
+
+    simulatedSelf := anObject
 ! !
 
 !Workspace methodsFor:'compiler interface'!
@@ -785,7 +791,7 @@
         self compilerClass 
             evaluate:theCode 
             in:nil 
-            receiver:nil 
+            receiver:simulatedSelf 
             notifying:self 
             logged:true 
             ifFail:nil 
@@ -1072,5 +1078,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.114 2002-08-31 12:10:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.115 2002-09-04 20:11:46 cg Exp $'
 ! !