--- a/Workspace.st	Thu Jan 24 14:14:46 2008 +0100
+++ b/Workspace.st	Thu Jan 24 14:50:17 2008 +0100
@@ -14,7 +14,8 @@
 TextCollector subclass:#Workspace
 	instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor
 		commentStrings autoDefineWorkspaceVariables simulatedSelf
-		autoDefineVariables compilerClass allowValueDrop'
+		autoDefineVariables compilerClass allowValueDrop
+		poolsConsideredInDoIts'
 	classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor
 		DefaultErrorBackgroundColor DefaultWarningBackgroundColor
 		DefaultWarningForegroundColor WorkspaceVariables DoItHistory'
@@ -374,6 +375,10 @@
     ^ (self selectionOrTextOfCursorLine:false) notNil
 !
 
+poolsConsideredInDoIts:something
+    poolsConsideredInDoIts := something.
+!
+
 selectAll
     super selectAll
 !
@@ -1036,7 +1041,7 @@
 !
 
 executeDoIt:theCode
-    ^ self compilerClass 
+    ^ (self compilerClass new) moreSharedPools:poolsConsideredInDoIts;
         evaluate:theCode 
         in:nil 
         receiver:simulatedSelf 
@@ -1447,5 +1452,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.173 2007-11-08 10:37:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.174 2008-01-24 13:50:17 cg Exp $'
 ! !