Index: test/quota.test
==================================================================
--- test/quota.test
+++ test/quota.test
@@ -200,10 +200,13 @@
 } {1 {database or disk is full}}
 
 set ::quota [list]
 proc quota_callback {file limitvar size} {
   upvar $limitvar limit
+  if {$::tcl_platform(platform)=="windows"} {
+    set file [ lindex [string map {\\ \/} $file] 0 ]
+  }
   lappend ::quota $file $size
   set limit 0
 }
 sqlite3_quota_set * 4096 quota_callback
 do_test quota-3.3.1 {