--- a/Workspace.st	Sun Jun 23 12:46:19 2013 +0200
+++ b/Workspace.st	Mon Jun 24 16:36:38 2013 +0200
@@ -1404,11 +1404,11 @@
 executeDoIt:theCode
     "the core of doIt, printIt, inspectIt, browseIt actions"
 
-    | result |
+    | result compiler |
 
     "JV@2012-03-19: Changed to reflect value of autoDefineVariables"
     [
-        result := (self compilerClass ? Compiler) new 
+        result := ( compiler := (self compilerClass ? Compiler) new ) 
                 currentNameSpace:namespaceForDoits;
                 moreSharedPools:poolsConsideredInDoIts;
                 evaluate:theCode 
@@ -1418,7 +1418,7 @@
                 logged:true 
                 ifFail:nil
     ] on: Parser undefinedVariableNotification do:[:ex|
-        autoDefineVariables notNil ifTrue:[
+        (ex parser == compiler and:[autoDefineVariables notNil]) ifTrue:[
             ex proceedWith: #declare
         ] ifFalse:[
             ex proceedWith: nil
@@ -1434,8 +1434,8 @@
     ].
     ^result
 
-    "Modified: / 19-03-2012 / 10:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-07-2012 / 09:33:39 / cg"
+    "Modified: / 24-06-2013 / 15:31:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initStyle
@@ -2076,10 +2076,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.265 2013-06-23 10:46:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.266 2013-06-24 14:36:38 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.265 2013-06-23 10:46:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.266 2013-06-24 14:36:38 vrany Exp $'
 ! !