--- a/WorkspaceApplication.st	Tue Jan 21 19:45:40 2020 +0100
+++ b/WorkspaceApplication.st	Tue Jan 21 19:59:21 2020 +0100
@@ -2893,19 +2893,20 @@
 !
 
 askForEncryptionKeyFor:algorithm
-    |key rememberKey|
+    |key rememberKeyHolder|
 
     key := self objectAttributeAt:#rememberedSecretKey.
-    rememberKey := false.
-    Dialog 
-        withOptoutOption:[rememberKey := true] 
-        labelled:'Remember key during session' 
-        do:[
+
+    rememberKeyHolder := true asValue.
+    Dialog
+        modifyingBoxWith:[:box |
+            box verticalPanel add:((CheckBox label:'Remember key during session') model:rememberKeyHolder).
+        ] do:[
             key := Dialog requestPassword:'Key' initialAnswer:key.
         ].
     key isEmptyOrNil ifTrue:[^ nil].
 
-    rememberKey ifTrue:[
+    rememberKeyHolder value ifTrue:[
         self objectAttributeAt:#rememberedSecretKey put:key.
     ] ifFalse:[
         self removeObjectAttribute:#rememberedSecretKey.