--- a/ApplicationModel.st	Fri Jun 28 08:49:48 2019 +0200
+++ b/ApplicationModel.st	Fri Jun 28 08:50:02 2019 +0200
@@ -3074,9 +3074,11 @@
     Screen notNil ifTrue:[
         device := Screen current.
         (device notNil and:[device isOpen not]) ifTrue:[
-            (self class name,' [warning]: screen device is not open') errorPrintCR
+            (self className,' [warning]: screen device is not open') errorPrintCR
         ].    
     ]
+
+    "Modified: / 28-06-2019 / 08:40:51 / Claus Gittinger"
 !
 
 setDevice:aDevice
@@ -3828,16 +3830,17 @@
     UnhandledAttributeInLiteralArrayErrorSignal handle:[:ex |
         "/ that is to support debugging - to easily find the bad spec
         Transcript showCR:'%1 [warning]: Error in spec (%2):' withCRs 
-                                with:self class name 
+                                with:self className 
                                 with:aSelectorOrSpec.
         Transcript showCR:ex description. 
         ex proceed.
     ] do:[    
         ^ self class interfaceSpecFor:aSelectorOrSpec
     ].
-    
+
     "Created: / 25-01-1998 / 19:45:12 / cg"
     "Modified: / 14-01-2008 / 17:54:29 / cg"
+    "Modified: / 28-06-2019 / 08:41:03 / Claus Gittinger"
 !
 
 isOpen