Index: test/vtabH.test
==================================================================
--- test/vtabH.test
+++ test/vtabH.test
@@ -145,17 +145,17 @@
   # Read the first 5 entries from the root directory.
   #
   set res [list]
   foreach p [lrange [list_root_files] 0 4] {
     if {$::tcl_platform(platform) eq "windows"} {
-      lappend res $p
+      if {![regexp {\$} $p]} {lappend res $p}
     } else {
       lappend res "/$p"
     }
   }
   do_execsql_test 3.1 {
-    SELECT path FROM fstree LIMIT 5;
+    SELECT path FROM fstree WHERE path NOT GLOB '*$*' LIMIT 5;
   } $res
   
   # Read all entries in the current directory.
   #
   proc contents {pattern} {