Index: test/journal2.test
==================================================================
--- test/journal2.test
+++ test/journal2.test
@@ -45,11 +45,10 @@
   #
   if {[info exists ::tvfs_error_on_write]} {
     if {[lsearch {xDelete xWrite xTruncate} $method]>=0} {
       return SQLITE_IOERR 
     }
-    return SQLITE_OK
   }
 
   # The rest of this command only deals with xOpen(), xClose() and xDelete()
   # operations on journal files. If this invocation does not represent such
   # an operation, return with no further ado.
@@ -68,11 +67,11 @@
   #
   if {[info exists ::open_journals($f)]==0} { set ::open_journals($f) 0 }
   switch -- $method {
     xOpen   { incr ::open_journals($f) +1 }
     xClose  { incr ::open_journals($f) -1 }
-    xDelete { if {$::open_journals($f)>0} { puts EEE;return SQLITE_IOERR } }
+    xDelete { if {$::open_journals($f)>0} { return SQLITE_IOERR } }
   }
 
   return ""
 }
 
@@ -218,12 +217,17 @@
   } {1}
   do_test journal2-2.3 {
     set ::oplog [list]
     execsql { PRAGMA journal_mode = WAL }
     set ::oplog
-  } {xClose test.db-journal xDelete test.db-journal}
+  } [list                                              \
+      xClose test.db-journal                           \
+      xOpen test.db-journal xClose test.db-journal     \
+      xOpen test.db-journal xClose test.db-journal     \
+      xDelete test.db-journal                          \
+  ]
   db close
 }
 
 tvfs delete
 finish_test