--- a/FileSaveBox.st	Sun Apr 30 15:40:03 1995 +0200
+++ b/FileSaveBox.st	Wed May 03 02:30:14 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.3 1995-02-06 00:52:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.4 1995-05-03 00:29:24 claus Exp $
 '!
 
 !FileSaveBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.3 1995-02-06 00:52:16 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.4 1995-05-03 00:29:24 claus Exp $
 "
 !
 
@@ -78,7 +78,7 @@
     "
      insert an append-button between abort- and save-buttons
     "
-    appendButton := Button okButtonIn:nil.
+    appendButton := Button okButton.
     appendButton isReturnButton:false.
     appendButton label:(resources string:'append').
     appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].