--- deliantra/Deliantra-Client/DC/BindingEditor.pm	2006/08/14 01:21:02	1.5
+++ deliantra/Deliantra-Client/DC/BindingEditor.pm	2006/10/01 14:48:51	1.7
@@ -131,13 +131,13 @@
 
 sub cfg_bind {
    my ($self, $mod, $sym, $cmds) = @_;
-   $::CFG->{profile}{default}{bindings}{$mod}{$sym} = $cmds;
+   $::PROFILE->{bindings}{$mod}{$sym} = $cmds;
    ::update_bindings ();
 }
 
 sub cfg_unbind {
    my ($self, $mod, $sym, $cmds) = @_;
-   delete $::CFG->{profile}{default}{bindings}{$mod}{$sym};
+   delete $::PROFILE->{bindings}{$mod}{$sym};
    ::update_bindings ();
 }
 
@@ -232,7 +232,9 @@
          $self->commit if $commit;
          $end_cb->() if $end_cb;
 
-         (delete $self->{binder})->destroy;
+         if (my $binder = delete $self->{binder}) {
+            $binder->destroy;
+         }
          1
       },
       on_focus_out => sub {