--- a/Color.st	Mon May 27 15:10:02 2019 +0200
+++ b/Color.st	Mon May 27 15:19:29 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -5234,14 +5232,6 @@
 
 !Color methodsFor:'copying'!
 
-postCopy
-    "redefined to clear out any device handles in the copy"
-
-    device := colorId := ditherForm := replacementColor := nil
-
-    "Modified: 17.1.1997 / 00:03:42 / cg"
-!
-
 skipInstvarIndexInDeepCopy:index
     index == 4 ifTrue:[
 	^ true "/ skip device
@@ -5262,6 +5252,16 @@
     "
 ! !
 
+!Color methodsFor:'copying-private'!
+
+postCopy
+    "redefined to clear out any device handles in the copy"
+
+    device := colorId := ditherForm := replacementColor := nil
+
+    "Modified: 17.1.1997 / 00:03:42 / cg"
+! !
+
 !Color methodsFor:'getting a device color'!
 
 exactOn:aDevice