diff --git a/package/kasc/crimson/crimson.desc b/package/kasc/crimson/crimson.desc
index 6357a2694..ef58ac3c4 100644
--- a/package/kasc/crimson/crimson.desc
+++ b/package/kasc/crimson/crimson.desc
@@ -38,7 +38,7 @@
 [T] mode in front of the same machine or via e- mail, or against the 
 [T] computer.
 
-[U] http://www.lanipage.de/jens/
+[U] http://crimson.seul.org
 
 [A] Jens Granseuer <jensgr@gmx.net>
 [M] Kai Schwenzfeier <niteblade@gmx.net>
@@ -48,8 +48,8 @@
 
 [L] GPL
 [S] Beta
-[V] 0.3.3
+[V] 0.4.2
 [P] X -----5---9 891.000
 
-[D] 2912829955 crimson-0.3.3.tar.bz2 http://www.lanipage.de/jens/crimson/
+[D] 2413045170 crimson-0.4.2.tar.bz2 http://crimson.seul.org/files/
 
diff --git a/package/kasc/crimson/crimson_vidinit.patch b/package/kasc/crimson/crimson_vidinit.patch
new file mode 100644
index 000000000..7931189ce
--- /dev/null
+++ b/package/kasc/crimson/crimson_vidinit.patch
@@ -0,0 +1,22 @@
+--- /home/fizz/dev/games/crimson/tools/cfed.cpp	Fri Apr 16 17:56:33 2004
++++ ./tools/cfed.cpp	Mon May 17 18:57:12 2004
+@@ -105,7 +105,7 @@
+   char *uset = NULL, *tset = NULL;
+   string outname;
+ 
+-  if ( SDL_Init( SDL_INIT_VIDEO ) < 0 ) {
++  if ( SDL_Init( 0 ) < 0 ) {
+     cerr << "Error: Could not init SDL. " << SDL_GetError() << endl;
+     return 1;
+   }
+--- /home/fizz/dev/games/crimson/src/common/surface.cpp	Fri Feb 27 19:54:12 2004
++++ ./src/common/surface.cpp	Mon May 17 18:59:50 2004
+@@ -91,7 +91,7 @@
+ int Surface::DisplayFormat( void ) {
+   SDL_Surface *new_s;
+ 
+-  if ( s_surface == 0 ) return -1;
++  if ( s_surface == 0 || !SDL_WasInit( SDL_INIT_VIDEO ) )  return -1;
+   if ( (new_s = SDL_DisplayFormat( s_surface )) == 0 ) return -1;
+   SDL_FreeSurface( s_surface );
+   s_surface = new_s;