--- a/GraphicsContext.st	Sat Jul 27 12:43:26 2019 +0200
+++ b/GraphicsContext.st	Sat Jul 27 12:43:42 2019 +0200
@@ -1772,6 +1772,13 @@
     self displayString:aString x:aPoint x y:aPoint y
 !
 
+displayString:aString centeredAt:aPoint
+    "draw a string - drawing fg only"
+
+    self displayString:aString centeredAtX:aPoint x y:aPoint y
+
+!
+
 displayString:aString centeredAtX:x y:y
     "draw a string - drawing fg only"