Fix repaint bug for read - screen needed repainting after call to read

darcs-hash:20070129162807-ac50b-c037ecfc0670a1f2795982337760f76036d6cdc5.gz

reader.c

@@ -1822,6 +1822,9 @@ void reader_pop()
 	{
 		history_set_mode( data->name );
 		exec_prompt();
+		write( 1, "\r", 1 );
+		s_reset( &data->screen );
+		repaint();
 	}
 }