$OpenBSD: patch-sdr_src_cache_nocrypt_tcl,v 1.1 2001/03/17 17:33:19 wilfried Exp $ --- sdr/src/cache_nocrypt.tcl.orig Thu Mar 26 19:44:22 1998 +++ sdr/src/cache_nocrypt.tcl Fri Mar 16 20:55:41 2001 @@ -45,7 +45,7 @@ proc write_cache {} { set ixnames {} catch {set ixnames [array names fullix]} foreach i $ixnames { - if {$ldata($fullix($i),list)=="norm"} { + if {[string match *norm $ldata($fullix($i),list)]} { set filename "$dirname/cache/$fullix($i)" write_cache_entry $fullix($i) $filename clear } else {