--- a/Workspace.st	Wed Aug 24 01:39:35 1994 +0200
+++ b/Workspace.st	Wed Aug 24 01:39:49 1994 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.8 1994-08-07 13:23:40 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.9 1994-08-23 23:39:49 claus Exp $
 '!
 
 !Workspace class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.8 1994-08-07 13:23:40 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.9 1994-08-23 23:39:49 claus Exp $
 "
 !
 
@@ -110,7 +110,13 @@
     showMatchingParenthesis := true.
 
     doItAction := [:theCode |
-        Compiler evaluate:theCode notifying:self
+        Compiler 
+            evaluate:theCode 
+            in:nil 
+            receiver:nil 
+            notifying:self 
+            logged:true 
+            ifFail:nil 
     ].
     errorFgColor := selectionFgColor.
     device hasColors ifTrue:[
@@ -344,7 +350,7 @@
                        abortBlock := nil.
                        ^ nil].
         [
-            value := doItAction value:(code asString).
+            value := doItAction value:code asString.
             aBlock value:value.
         ] valueOnUnwindDo:[
             self cursor:Cursor normal.