Fix a test script problem associated with the new crash4.test file.

Ticket #2882. (CVS 4701)

FossilOrigin-Name: 1134c5ea7116bb2f342ccf09548d075c308c427b

test/crash4.test

@@ -12,7 +12,7 @@
 # This file contains additional tests to verify that SQLite database
 # file survive a power loss or OS crash.
 #
-# $Id: crash4.test,v 1.1 2008/01/08 16:03:50 drh Exp $
+# $Id: crash4.test,v 1.2 2008/01/09 23:21:25 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -26,7 +26,7 @@ ifcapable !crashtest {
 # checksum of two databases is the same, and the integrity-check passes
 # for both, the two databases are identical.
 #
-proc cksum {db} {
+proc cksum {{db db}} {
   set ret [list]
   ifcapable tempdb {
     set sql {