Index: library/serialize/serializer.tcl
===================================================================
diff -u -ra4db79974cff37397d1493964e865e174df1d10e -r781d71fe6d58ac20dcf0ed4161422dc8a71e89ff
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision a4db79974cff37397d1493964e865e174df1d10e)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 781d71fe6d58ac20dcf0ed4161422dc8a71e89ff)
@@ -581,7 +581,7 @@
     :method collectVars o {
       set setcmd [list]
       foreach v [lsort [$o info vars]] {
-        if {![info exists :ignoreVarsRE] || ![regexp [set :ignoreVarsRE] ${o}::$v]} {
+        if {![info exists :ignoreVarsRE] || ![regexp ${:ignoreVarsRE} ${o}::$v]} {
           if {[$o eval [list ::array exists :$v]]} {
             lappend setcmd [list array set :$v [$o eval [list array get :$v]]]
           } else {