--- a/XWorkstation.st	Fri Jun 22 10:47:38 2018 +0200
+++ b/XWorkstation.st	Fri Jun 22 10:48:56 2018 +0200
@@ -1479,6 +1479,10 @@
 
     hasSaveUnder := aBoolean
 
+    "
+     Screen current hasSaveUnder:false
+    "
+
     "Created: / 22-06-2018 / 10:47:25 / Claus Gittinger"
 !