--- a/XWorkstation.st	Thu Jul 20 14:36:24 2017 +0200
+++ b/XWorkstation.st	Mon Jul 24 15:04:25 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -7917,7 +7915,7 @@
 	    ).
 
       Screen current
-	heightOf:'hello World gggÖÜ' from:1 to:15
+	heightOf:'hello World gggÖÜ' from:1 to:15
 	inFont:(Screen current getDefaultFontWithEncoding:#'iso10646-1')
     "
 !
@@ -10573,7 +10571,9 @@
 unregisterSelectionFetcher:aSelectionFetcher
     "unregister a SelectionFetcher that received selection events for aDrawableId"
 
-    selectionFetchers removeKey:aSelectionFetcher drawableID.
+    selectionFetchers removeKey:(aSelectionFetcher drawableID) ifAbsent:[].
+
+    "Modified (format): / 24-07-2017 / 15:04:08 / cg"
 ! !
 
 !XWorkstation methodsFor:'properties'!