From 237624ab4f42b7c093d9322d8647230540b6b7d9 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 13 Dec 2000 18:17:01 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/wstore.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WOKTclLib/wstore.tcl b/src/WOKTclLib/wstore.tcl
index 29fd62d..1599df9 100755
--- a/src/WOKTclLib/wstore.tcl
+++ b/src/WOKTclLib/wstore.tcl
@@ -933,7 +933,7 @@ proc wokStore:Report:CheckUnits { lwb table } {
     set lret {}
     foreach u [array names TLOC] {
 	regexp {(.*)\.(.*)} $u all udname type 
-	if { [lsearch $lwb $udname] != -1 } {
+	if { [lsearch $lwb $udname] == -1 } {
 	    lappend lret $type $udname
 	}
     }
-- 
2.39.5