--- deliantra/Deliantra-Client/DC/UI.pm	2006/06/07 22:06:43	1.300
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/06/12 12:28:06	1.301
@@ -3654,6 +3654,13 @@
    $self->rebuild_spell_list;
 }
 
+sub clear_spells {
+   my ($self) = @_;
+
+   $self->{spell} = {};
+   $self->rebuild_spell_list;
+}
+
 #############################################################################
 
 package CFClient::UI::Root;