@@ -4,7 +4,7 @@ rem $Id$
 rem
 rem A script for running the POCO testsuites.
 rem
-rem usage: runtests
+rem usage: runtests [64]
 rem
 rem If the environment variable EXCLUDE_TESTS is set, containing
 rem a space-separated list of project names (as found in the
@@ -15,6 +15,11 @@ setlocal EnableDelayedExpansion
 
 set TESTRUNNER=TestSuite.exe
 set TESTRUNNERARGS=/B:TestSuite.out
+set BINDIR=bin
+
+if "%1"=="64" )
+  set BINDIR=bin64
+)
 
 set runs=0
 set failures=0
@@ -32,7 +37,7 @@ for /f %%C in ('findstr /R "." components') do (
   if !excluded!==0 (
     if exist %%C (
       if exist %%C\testsuite (
-        if exist %%C\testsuite\bin\%TESTRUNNER% (
+        if exist %%C\testsuite\%BINDIR%\%TESTRUNNER% (
           echo.
           echo.
           echo ****************************************
@@ -42,14 +47,14 @@ for /f %%C in ('findstr /R "." components') do (
 
 		  set /a runs=!runs! + 1
 		  set dir=%CD%
-		  cd %%C\testsuite\bin
+		  cd %%C\testsuite\%BINDIR%
 		  %TESTRUNNER% %TESTRUNNERARGS%
 		  if !ERRORLEVEL! neq 0 (
 		    set /a failures=!failures! + 1
 		    set failedTests=!failedTests! %%C
 		    set status=1
 		  )
-		  if exists TestSuite.out (
+		  if exist TestSuite.out (
 		    type TestSuite.out
 		  )
 		  cd !dir!