diff --git a/docs/CHANGES.txt b/docs/CHANGES.txt
index 7843b53d6..c57daa067 100644
--- a/docs/CHANGES.txt
+++ b/docs/CHANGES.txt
@@ -7,7 +7,7 @@ bill@newbreedsoftware.com
 http://www.newbreedsoftware.com/tuxpaint/
 
 
-2003.Sep.04 (0.9.13) [cvs]
+2003.Sep.05 (0.9.13) [cvs]
   * Fixed incorrect tag in HTML documentation.  (Bad results in IE)
 
   * Fixed typo regarding "savedir" in README.
@@ -21,6 +21,10 @@ http://www.newbreedsoftware.com/tuxpaint/
   * Reorganized usage display
     (Suggested by Ben Armstrong)
 
+  * If the top-left-most file is deleted in the Open screen, it now
+    scrolls up one line (so that the cursor isn't off the top of the
+    screen!)
+
 
 2003.Aug.18 (0.9.12)
   * Replaced "efont-serif" fonts with those from the 'ttf-freefont' package,
diff --git a/src/tuxpaint.c b/src/tuxpaint.c
index f172b2b28..8ce906eeb 100644
--- a/src/tuxpaint.c
+++ b/src/tuxpaint.c
@@ -7,12 +7,12 @@
   bill@newbreedsoftware.com
   http://www.newbreedsoftware.com/tuxpaint/
   
-  June 14, 2002 - September 4, 2003
+  June 14, 2002 - September 5, 2003
 */
 
 
 #define VER_VERSION     "0.9.13"
-#define VER_DATE        "2003.09.04"
+#define VER_DATE        "2003.09.05"
 
 
 /* #define DEBUG */
@@ -9497,6 +9497,15 @@ int do_open(int want_new_tool)
 		      
 		      if (which >= num_files)
 			which = num_files - 1;
+
+
+		      /* Scroll up if the cursor goes off top of screen! */
+
+		      if (which < cur && cur >= 4)
+			{
+			  cur = cur - 4;
+			  update_list = 1;
+			}
 		      
 		      
 		      /* No files to open now? */