No comments

diff --git a/src/WOKTclLib/wstore.tcl b/src/WOKTclLib/wstore.tcl
index 29fd62dfc0f4783196e21fc1fede07bed4c411e7..1599df90e48b95f334bbce2e8e88481a7e3600c2 100755 (executable)
--- 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
        }
     }