--- a/Parser.st	Wed Jul 13 16:22:37 2005 +0200
+++ b/Parser.st	Wed Jul 13 18:26:56 2005 +0200
@@ -7282,24 +7282,22 @@
 makeImmutableArray:anArray
     |newArray|
 
-"/ for now
-^ anArray.
-    ImmutableArray isNil ifTrue:[^ anArray].
-
-    newArray := anArray shallowCopy.
-    newArray changeClassTo:ImmutableArray.
+    newArray := anArray copy.
+    ImmutableArray notNil ifTrue:[
+        newArray changeClassTo:ImmutableArray.
+    ].
+    newArray beImmutable.
     ^ newArray
 !
 
 makeImmutableString:aString
     |newString|
 
-"/ for now
-^ aString.
-    ImmutableString notNil ifFalse:[^ aString].
-
     newString := aString copy.
-    newString changeClassTo:ImmutableString.
+    ImmutableString notNil ifTrue:[
+        newString changeClassTo:ImmutableString.
+    ].
+    newString beImmutable.
     ^ newString
 !
 
@@ -7930,7 +7928,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.463 2005-07-13 14:22:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.464 2005-07-13 16:26:56 cg Exp $'
 ! !
 
 Parser initialize!