From: cas <cas@opencascade.com>
Date: Wed, 13 Dec 2000 18:17:01 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=237624ab4f42b7c093d9322d8647230540b6b7d9;p=occt-wok.git

No comments
---

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
 	}
     }