--- a/Label.st	Tue Aug 09 12:39:59 2016 +0200
+++ b/Label.st	Tue Aug 09 12:40:50 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1436,7 +1434,7 @@
 
     super initialize.
 
-    currentFont := gc createFontOnDevice.
+    currentFont := gc font.
     self initialHeight:(currentFont height + currentFont descent).
     adjust := #center.
     labelOriginX := labelOriginY := 0.
@@ -1452,7 +1450,6 @@
      different font parameters"
 
     super recreate.
-    gc createFontOnDevice.
     self computeLabelSize.
     self computeLabelOrigin
 !