From 23e5d89c12b70a73fd78d33855ca21c466b183f1 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 21 Mar 2006 14:33:24 +0000
Subject: revert broken commit

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

diff --git a/tests/env.test b/tests/env.test
index 4005afb..293cd60 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: env.test,v 1.24 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: env.test,v 1.25 2006/03/21 14:33:24 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -70,7 +70,7 @@ set printenvScript [makeFile {
     }
 	
     set names [lsort [array names env]]
-    if {[testConstraint win]} {
+    if {$tcl_platform(platform) == "windows"} {
 	lrem names HOME
         lrem names COMSPEC
 	lrem names ComSpec
-- 
cgit v0.12