--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/31 07:40:33	1.13
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/31 13:44:26	1.14
@@ -447,12 +447,15 @@
 
    # TODO
    # create a widget dynamically, using spell face (CF::Protocol downloads them)
+   $::SPELL_LIST->add_spell ($spell);
+
    $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
    $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
 }
 
 sub spell_delete {
    my ($self, $spell) = @_;
+   $::SPELL_LIST->remove_spell ($spell);
 }
 
 sub addme_success {