--- a/hedgewars/CCHandlers.inc	Fri Jun 18 20:45:45 2010 +0200
+++ b/hedgewars/CCHandlers.inc	Sat Jun 19 00:48:47 2010 +0200
@@ -730,6 +730,7 @@
         AddFileLog('Freeing old primary surface...');
 {$ENDIF}
         SDL_FreeSurface(SDLPrimSurface);
+        SDLPrimSurface:= nil;
     end;
     
 {$IFDEF SDL13}