M save.pl

M  save.pl~

2 files changed, 2 insertions, 2 deletions

diff --git a/save.pl b/save.pl
index 72b8dc9..ab73aea 100644
--- a/save.pl
+++ b/save.pl
@@ -97,4 +97,4 @@ commited(S) :-
 	     'Files could not be saved.').
 
 commited(_) :-
-	send(@pce, destroy).
+	send(@dialog, destroy).
diff --git a/save.pl~ b/save.pl~
index 52e5a92..72b8dc9 100644
--- a/save.pl~
+++ b/save.pl~
@@ -2,7 +2,7 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
-:- pce_global(@dialog, new(dialog, 'Save')).
+:- pce_global(@dialog, new(dialog('Save'))).
 
 main :-
 	pce_main_loop(main).