Index: test/main.test
==================================================================
--- test/main.test
+++ test/main.test
@@ -9,11 +9,11 @@
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.  The
 # focus of this file is exercising the code in main.c.
 #
-# $Id: main.test,v 1.29 2008/07/12 14:52:20 drh Exp $
+# $Id: main.test,v 1.30 2008/09/18 18:18:29 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 # Only do the next group of tests if the sqlite3_complete API is available
@@ -441,11 +441,12 @@
   catchsql {SELECT 'abc' + #9}
 } {1 {near "#9": syntax error}}
 
 # The following test-case tests the linked list code used to manage
 # sqlite3_vfs structures.
-if {$::tcl_platform(platform)=="unix"} {
+if {$::tcl_platform(platform)=="unix" 
+     && [info command sqlite3async_enable]!=""} {
   ifcapable threadsafe {
     do_test main-4.1 {
       sqlite3_crash_enable 1
       sqlite3_crash_enable 0