Index: test/pager1.test
==================================================================
--- test/pager1.test
+++ test/pager1.test
@@ -534,10 +534,14 @@
     # contains a master-journal pointer so large that it could contain
     # a valid page record (if the file page-size is 512 bytes). So as to
     # make sure SQLite doesn't get confused by this.
     #
     set nPadding [expr 511 - $::mj_filename_length]
+    if {$tcl_platform(platform)=="windows"} {
+      # TBD need to figure out how to do this correctly for Windows!!!
+      set nPadding [expr 255 - $::mj_filename_length]
+    }
 
     # We cannot just create a really long database file name to open, as
     # Linux limits a single component of a path to 255 bytes by default
     # (and presumably other systems have limits too). So create a directory
     # hierarchy to work in.
@@ -1282,10 +1286,11 @@
   list [B step 10000] [B finish]
 } {SQLITE_DONE SQLITE_OK}
 do_test pager1-9.4.2 {
   list [file size test.db2] [file size test.db]
 } {0 0}
+db2 close
 
 #-------------------------------------------------------------------------
 # Test that regardless of the value returned by xSectorSize(), the
 # minimum effective sector-size is 512 and the maximum 65536 bytes.
 #