From bf57a0fbe4c882798098b435c1967d92064d8db2 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 2 Mar 2000 23:45:12 +0000
Subject: fixed var set problem

---
 tests/choosedir.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/choosedir.test b/tests/choosedir.test
index 3961490..1ca46f1 100644
--- a/tests/choosedir.test
+++ b/tests/choosedir.test
@@ -5,7 +5,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: choosedir.test,v 1.2 2000/02/26 00:51:17 ericm Exp $
+# RCS: @(#) $Id: choosedir.test,v 1.3 2000/03/02 23:45:12 hobbs Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -75,7 +75,7 @@ proc SendButtonPress {parent btn type} {
 # The test suite proper
 #
 #----------------------------------------------------------------------
-
+catch {unset err}
 append err(usage) "tk_chooseDirectory "
 append err(usage) "?-initialdir directory? ?-mustexist boolean? "
 append err(usage) "?-parent window? ?-title title?"
-- 
cgit v0.12