[Help-smalltalk] Fixing the compiler (http://smalltalk.gnu.org/project/issue/527)

[Gwenaël Casaccio]

Hi,

index a98719d..550ae39 100644
--- a/packages/stinst/compiler/StartCompiler.st
+++ b/packages/stinst/compiler/StartCompiler.st
@@ -84,14 +84,13 @@ Behavior extend [

     evalString: aString to: anObject [
        <category: 'compiling'>
-       ^STInST.STEvaluationDriver new parseSmalltalk: aString
-           with: self evaluatorClass
+       ^ self evalString: aString to: anObject ifError: [ :f :l :m |
self error: (m displayString) ]
     ]

     evalString: aString to: anObject ifError: aBlock [
        <category: 'compiling'>
        ^STInST.STEvaluationDriver new
-           parseSmalltalk: aString
+           parseSmalltalk: '^ [', aString, ' ] value'
            with: self evaluatorClass
            onError:
                [:m :l |

Gwen