diff --git a/ediv/CHANGE_LOG.txt b/ediv/CHANGE_LOG.txt
index e4a37f0..cf31b16 100644
--- a/ediv/CHANGE_LOG.txt
+++ b/ediv/CHANGE_LOG.txt
@@ -1,3 +1,8 @@
+28/9/2002
+---------
+ * El título por defecto de la ventana del juego compilado es el nombre in-
+   dicado en la sentencia program. (Er_Makina)
+
 26/9/2002
 ---------
  * Algunos bugfixes y cambios menores. CicTec y yo andamos tras la pista de
@@ -13,8 +18,6 @@
      produce si no usamos procesos con más de un parámetro.
    - Al llegar a x procesos (600, 900...) el programa se queda bloqueado.
    (Er_Makina)
- * Para mañana, haré que el título por defecto de la ventana sea el nombre
-   del programa indicado en program. (Er_Makina)
 
 25/9/2002
 ---------
diff --git a/ediv/bin/bum.prg b/ediv/bin/bum.prg
index 5411ef5..fea3cd0 100644
--- a/ediv/bin/bum.prg
+++ b/ediv/bin/bum.prg
@@ -1,4 +1,3 @@
-compiler_options _max_process=2000;
 program bum;
 private
     numprocs;
diff --git a/ediv/src/dlls/dlls.suo b/ediv/src/dlls/dlls.suo
index 8611fe4..dfbdbf7 100644
Binary files a/ediv/src/dlls/dlls.suo and b/ediv/src/dlls/dlls.suo differ
diff --git a/ediv/src/dlls/export.h b/ediv/src/dlls/export.h
index 7e25562..b41ffba 100644
--- a/ediv/src/dlls/export.h
+++ b/ediv/src/dlls/export.h
@@ -252,6 +252,7 @@ struct _fun_params{
 	int *num_procs ;
 	int *proc_orden ;
 	int *proceso_actual ;
+	unsigned char* nombre_program;
 	struct _regions *regions ;
 	struct _existe existe ;
 	struct _files *files ;
@@ -296,7 +297,7 @@ void frame(FUNCTION_PARAMS);
 void trace(int imem, char* nombreprg, int* lin, void* dbg);
 void debug(int imem, char* nombreprg, int* lin, void* dbg);
 void first_load(FUNCTION_PARAMS) ;
-void quit(int dont_quit);
+void quit(void);
 
 //////////////////////////////
 
diff --git a/ediv/src/dlls/graphics/main.c b/ediv/src/dlls/graphics/main.c
index b37d6ab..55ecbbc 100644
--- a/ediv/src/dlls/graphics/main.c
+++ b/ediv/src/dlls/graphics/main.c
@@ -1489,9 +1489,9 @@ void first_load(FUNCTION_PARAMS2)
 
 	define_region = 1 ;
 
-	SDL_WM_SetCaption("eDiv testing", NULL);
+	SDL_WM_SetCaption(fp->nombre_program, NULL);
 
-	prueba = SDL_LoadBMP("prueba.bmp" );
+	//prueba = SDL_LoadBMP("prueba.bmp" );
 
 	//fclose(fichero ) ;
 
diff --git a/ediv/src/ediv/compiler.c b/ediv/src/ediv/compiler.c
index d3b2b22..f9281e7 100644
--- a/ediv/src/ediv/compiler.c
+++ b/ediv/src/ediv/compiler.c
@@ -323,6 +323,7 @@ void compila()
 	#endif
 
 	if ((f=fopen(outfilename,"ab"))!=NULL) {
+		fwrite(nombre_program,strlen(nombre_program)+1,1,f);
 		p=(byte*)e_malloc((imem+iloc)*4);
 		m=(imem+iloc)*4+1024;
 		q=(byte*)e_malloc(m);
diff --git a/ediv/src/shared/extern.h b/ediv/src/shared/extern.h
index 57b2ab8..295acd4 100644
--- a/ediv/src/shared/extern.h
+++ b/ediv/src/shared/extern.h
@@ -251,6 +251,7 @@ struct _fun_params{
 	int *num_procs ;
 	int *proc_orden ;
 	int *proceso_actual ;
+	byte* nombre_program;
 	struct _regions *regions ;
 	struct _existe existe ;
 	struct _files *files ;
diff --git a/ediv/src/stub/inte.c b/ediv/src/stub/inte.c
index 8599335..8045f1a 100644
--- a/ediv/src/stub/inte.c
+++ b/ediv/src/stub/inte.c
@@ -79,6 +79,7 @@ int ini_interprete()
 	fp.num_procs = &num_proc_orden ;
 	fp.proc_orden = proc_orden ;
 	fp.proceso_actual = &proceso_actual ;
+	fp.nombre_program=nombre_program;
 	fp.existe.regions = 0 ;
 	fp.existe.dibuja = 0 ;
 	fp.Runtime_Error=error;
diff --git a/ediv/src/stub/main.h b/ediv/src/stub/main.h
index b011663..e5d2967 100644
--- a/ediv/src/stub/main.h
+++ b/ediv/src/stub/main.h
@@ -33,6 +33,8 @@
 // GLOBALES DEL INTERPRETE
 //
 
+byte nombre_program[256];	// nombre del programa, titulo por defecto de la ventana
+
 int ignore_errors;		// 1 = se ignoran los errores 'evitables'
 
 #ifdef DBG
diff --git a/ediv/src/stub/stub.c b/ediv/src/stub/stub.c
index 9df946f..5d56315 100644
--- a/ediv/src/stub/stub.c
+++ b/ediv/src/stub/stub.c
@@ -58,6 +58,7 @@ int main(int argc, char* argv[])
 	byte * ptr;
 	unsigned long len,len_descomp;
 	byte* vartemp;
+	byte* p;
 	//const SDL_version* sdl_version;
 #ifdef DBG
 	int start_lin;
@@ -114,6 +115,11 @@ int main(int argc, char* argv[])
 	read(f,&stub_size,4);
 	printf("STUB_SIZE: %d\n",stub_size);
 	lseek(f,stub_size,SEEK_SET);
+	p=nombre_program;
+	do {
+		read(f,p,1);
+	} while(*p++!=0);
+
 	read(f,mimem,4*10);
 	read(f,&len,4);
 
diff --git a/ediv/src/visual c/ediv_ws.suo b/ediv/src/visual c/ediv_ws.suo
index a03e4d5..e4db9e0 100644
Binary files a/ediv/src/visual c/ediv_ws.suo and b/ediv/src/visual c/ediv_ws.suo differ