Index: src/test_quota.c
==================================================================
--- src/test_quota.c
+++ src/test_quota.c
@@ -813,12 +813,12 @@
   if( rc==SQLITE_OK ){
     rc = quotaOpen(&gQuota.sThisVfs, zFull, fd, 
                    SQLITE_OPEN_READONLY | SQLITE_OPEN_MAIN_DB, &outFlags);
   }
   if( rc==SQLITE_OK ){
-    quotaFileSize(fd, &iSize);
-    quotaClose(fd);
+    fd->pMethods->xFileSize(fd, &iSize);
+    fd->pMethods->xClose(fd);
   }else if( rc==SQLITE_CANTOPEN ){
     quotaGroup *pGroup;
     quotaFile *pFile;
     quotaEnter();
     pGroup = quotaGroupFind(zFull);

Index: test/quota.test
==================================================================
--- test/quota.test
+++ test/quota.test
@@ -334,21 +334,30 @@
   sqlite3_quota_set A 0 quota_callback
   db close
   quota_list
 } {}
 
+unset -nocomplain quotagroup
+if {$tcl_platform(platform)=="windows"} {
+  set quotagroup *\\quota-test-A?.db
+} else {
+  set quotagroup */quota-test-A?.db
+} 
+foreach file [glob -nocomplain quota-test-A*] {
+  forcedelete $file
+}
 do_test quota-4.4.1 {
   set ::quota {}
-  sqlite3_quota_set */quota-test-A?.db 10000 quota_callback
+  sqlite3_quota_set $::quotagroup 10000 quota_callback
   file delete -force ./quota-test-A1.db ./quota-test-A2.db
   sqlite3 db ./quota-test-A1.db
   db eval {
      CREATE TABLE t1(x);
      INSERT INTO t1 VALUES(randomblob(5000));
   }
   quota_list
-} {*/quota-test-A?.db}
+} [list $quotagroup]
 do_test quota-4.4.2 {
   expr {$::quota==""}
 } {1}
 do_test quota-4.4.3 {
   db close
@@ -356,40 +365,46 @@
   db eval {
      CREATE TABLE t1(x);
      INSERT INTO t1 VALUES(randomblob(5000));
   }
   quota_list
-} {*/quota-test-A?.db}
+} [list $quotagroup]
 do_test quota-4.4.4 {
   expr {$::quota!=""}
 } {1}
 do_test quota-4.4.5 {
   db close
-  sqlite3_quota_set */quota-test-A?.db 0 {}
+  sqlite3_quota_set $::quotagroup 0 {}
   sqlite3_quota_dump
 } {}
 do_test quota-4.4.6 {
-  sqlite3_quota_set */quota-test-A?.db 10000 quota_callback
+  sqlite3_quota_set $quotagroup 10000 quota_callback
   sqlite3 db quota-test-A1.db
   db eval {SELECT count(*) FROM sqlite_master}
-  quota_size */quota-test-A?.db
+  quota_size $quotagroup
 } [file size quota-test-A1.db]
 do_test quota-4.4.7 {
   sqlite3_quota_file quota-test-A2.db
-  quota_size */quota-test-A?.db
+  quota_size $::quotagroup
 } [expr {[file size quota-test-A1.db]+[file size quota-test-A2.db]}]
 
+unset -nocomplain quotagroup
+if {$tcl_platform(platform)=="windows"} {
+  set quotagroup *\\quota-test-B*
+} else {
+  set quotagroup */quota-test-B*
+} 
+foreach file [glob -nocomplain quota-test-B*] {
+  forcedelete $file
+}
 do_test quota-4.5.1 {
-  foreach file [glob -nocomplain quota-test-B*] {
-    forcedelete $file
-  }
-  sqlite3_quota_set */quota-test-B* 100000 quota_callback
-  quota_size */quota-test-B*
+  sqlite3_quota_set $::quotagroup 100000 quota_callback
+  quota_size $::quotagroup
 } {0}
 do_test quota-4.5.2 {
   sqlite3_quota_file quota-test-B1.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {0}
 proc add_to_file {name n} {
   set out [open $name a]
   fconfigure $out -translation binary
   puts -nonewline $out [string repeat x $n]
@@ -396,40 +411,40 @@
   close $out
 }
 do_test quota-4.5.3 {
   add_to_file quota-test-B1.txt 123
   sqlite3_quota_file quota-test-B1.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {123}
 do_test quota-4.5.4 {
   add_to_file quota-test-B2.txt 234
   sqlite3_quota_file quota-test-B2.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {357}
 do_test quota-4.5.5 {
   add_to_file quota-test-B1.txt 2000
   sqlite3_quota_file quota-test-B1.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {2357}
 do_test quota-4.5.6 {
   forcedelete quota-test-B1.txt
   sqlite3_quota_file quota-test-B1.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {234}
 do_test quota-4.5.7 {
   forcedelete quota-test-B2.txt
   sqlite3_quota_file quota-test-B2.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {0}
 do_test quota-4.5.8 {
   add_to_file quota-test-B3.txt 1234
   sqlite3_quota_file quota-test-B3.txt
-  quota_size */quota-test-B*
+  quota_size $::quotagroup
 } {1234}
 do_test quota-4.5.9 {
-  sqlite3_quota_set */quota-test-B* 0 {}
-  quota_size */quota-test-B*
+  sqlite3_quota_set $quotagroup 0 {}
+  quota_size $::quotagroup
 } {0}
 
 do_test quota-4.9.1 {
   db close
   sqlite3_quota_set A 1000 quota_callback