--- a/Parser.st	Fri Jul 25 14:45:53 2008 +0200
+++ b/Parser.st	Sun Sep 07 19:30:20 2008 +0200
@@ -1995,9 +1995,14 @@
 !
 
 setNameSpace:aNameSpaceName
-    currentNamespace := NameSpace fullName:aNameSpaceName
+    currentNamespace := aNameSpaceName isString 
+                            ifTrue:[ NameSpace fullName:aNameSpaceName ] 
+                            ifFalse:[ aNameSpaceName ].
 
     "Modified: 8.11.1996 / 13:43:14 / cg"
+
+
+
 !
 
 setPackage:aPackageID
@@ -4312,6 +4317,17 @@
     "Modified: / 6.2.2000 / 15:01:57 / cg"
 !
 
+evaluate:aStringOrStream logged:logged
+    ^ self
+        evaluate:aStringOrStream 
+        in:nil 
+        receiver:nil 
+        notifying:nil 
+        logged:logged 
+        ifFail:[ self error:'error in eval' ] 
+        compile:true 
+!
+
 evaluate:aStringOrStream receiver:anObject
     "return the result of evaluating aStringOrStream, errors are reported to requestor. 
      Allow access to anObject as self and to its instVars (used in the inspector).
@@ -9341,7 +9357,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.574 2008-07-25 12:45:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.575 2008-09-07 17:30:20 cg Exp $'
 ! !
 
 Parser initialize!