--- a/StandardSystemView.st	Fri Jun 28 09:19:28 2019 +0200
+++ b/StandardSystemView.st	Fri Jun 28 09:19:42 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1596,9 +1594,9 @@
         ] ifFalse:[
             (self class == StandardSystemView and:[subViews size == 1]) ifTrue:[
                 "This is a subclass of SimpleView wrapped into a StandardSystemView"
-                windowClassNameString := subViews first class name.
+                windowClassNameString := subViews first className.
             ] ifFalse:[
-                windowClassNameString := self class name.
+                windowClassNameString := self className.
             ]
         ].
         windowClassNameString := 'Stx.', windowClassNameString.
@@ -1610,6 +1608,7 @@
     "Modified: / 04-01-2013 / 16:13:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 22-05-2015 / 21:09:35 / cg"
     "Modified: / 18-03-2017 / 00:30:15 / stefan"
+    "Modified: / 28-06-2019 / 09:16:19 / Claus Gittinger"
 !
 
 postRealize