Index: test/corrupt2.test
==================================================================
--- test/corrupt2.test
+++ test/corrupt2.test
@@ -11,11 +11,11 @@
 # This file implements regression tests for SQLite library.
 #
 # This file implements tests to make sure SQLite does not crash or
 # segfault if it sees a corrupt database file.
 #
-# $Id: corrupt2.test,v 1.14 2008/08/02 20:09:37 drh Exp $
+# $Id: corrupt2.test,v 1.15 2008/08/27 16:14:21 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 # The following tests - corrupt2-1.* - create some databases corrupted in
@@ -177,10 +177,11 @@
   catchsql {
     SELECT * FROM t2;
   } db2
 } {1 {database disk image is malformed}}
 
+unset -nocomplain result
 do_test corrupt2-5.1 {
   file delete -force corrupt.db
   file delete -force corrupt.db-journal
   sqlite3 db2 corrupt.db