--- a/Unicode32String.st	Fri Jan 24 21:14:07 2020 +0100
+++ b/Unicode32String.st	Mon Jan 27 12:19:45 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2004 by eXept Software AG 
               All Rights Reserved
@@ -79,8 +77,8 @@
     ^ self readSmalltalkStringFrom:aStreamOrString onError:exceptionBlock
 
     "
-        self readFrom:'abcäöü' storeString
-        String readFrom:'abcäöü' storeString
+        self readFrom:'abcäöü' storeString
+        String readFrom:'abcäöü' storeString
     "
 ! !
 
@@ -153,7 +151,7 @@
         ].
 
         String streamContents:[:s|
-            'hello -öäüß' asUnicode32String storeOn:s
+            'hello -öäüß' asUnicode32String storeOn:s
         ].
     "
 
@@ -183,8 +181,8 @@
 
     "
         'hello' asUnicode32String storeString
-        'hello -öäüß' storeString
-        'hello -öäüß' asUnicode32String storeString
+        'hello -öäüß' storeString
+        'hello -öäüß' asUnicode32String storeString
     "
 !
 
@@ -213,6 +211,13 @@
 
 !Unicode32String methodsFor:'testing'!
 
+isLiteral
+    "return true, if the receiver can be used as a literal constant in ST syntax
+     (i.e. can be used in constant arrays)"
+
+    ^ true
+!
+
 isUnicode32String
     "true if this is a 4-byte unicode string"