--- a/Parser.st	Thu Feb 13 11:37:26 2014 +0100
+++ b/Parser.st	Fri Feb 14 11:03:11 2014 +0100
@@ -2078,6 +2078,10 @@
 
 !Parser methodsFor:'Compatibility-ST80'!
 
+evaluate:aStringOrStream in:aContextOrNil to:whatIsThis
+    ^ self evaluate:aStringOrStream in:aContextOrNil to:whatIsThis notifying:nil ifFail:[self error]
+!
+
 evaluate:aString in:aClassOrContext to:to notifying:aRequestor ifFail:failBlock
     |parseTree value|
 
@@ -10608,10 +10612,11 @@
         list addAll: #( NewClass GlobalVariable NameSpace ).
 
         (classToCompileFor notNil
-        and:[classToCompileFor isBuiltInClass not
-        and:[parser isDoIt not]]) ifTrue:[
-            classToCompileFor isMeta ifTrue:[
-                list add: #ClassInstanceVariable.
+        and:[parser isDoIt not]) ifTrue:[
+            classToCompileFor isBuiltInClass ifFalse:[
+                classToCompileFor isMeta ifTrue:[
+                    list add: #ClassInstanceVariable.
+                ].
             ].
             list addAll: #( #ClassVariable #PrivateClass ).
         ]
@@ -11779,11 +11784,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.800 2014-01-23 16:12:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.801 2014-02-14 10:03:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.800 2014-01-23 16:12:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.801 2014-02-14 10:03:11 cg Exp $'
 !
 
 version_SVN