--- a/hedgewars/uCommandHandlers.pas	Thu Dec 23 17:47:50 2010 +0100
+++ b/hedgewars/uCommandHandlers.pas	Thu Dec 23 20:26:31 2010 +0100
@@ -407,6 +407,7 @@
 if isDeveloperMode then
 begin
 Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;
+Theme:= s;
 InitStepsFlags:= InitStepsFlags or cifTheme
 end
 end;