package require snit
    
    snit::type Dict {
        variable dictv
    
        method append {key args} {
    	variable dictv
    	return [eval ::dict append dictv [list $key] $args]
        }
    
        method exists {args} {
    	variable dictv
    	return [eval ::dict exists [list $dictv] $args]
        }
    
        method filter {ftype args} {
    	variable dictv
    	return [eval ::dict [list $dictv $ftype] $args]
        }
    
        method for {kv body} {
    	variable dictv
    	return [uplevel 1 ::dict for $kv $dictv $body]
        }
    
        method get {args} {
    	variable dictv
    	return [eval ::dict get [list $dictv] $args]
        }
    
        method incr {key {incr 1}} {
    	variable dictv
    	return [::dict incr dictv $key $incr]
        }
    
        method keys {{glob *}} {
    	variable dictv
    	return [eval ::dict keys [list $dictv] $glob]
        }
    
        method lappend {key args} {
    	variable dictv
    	return [eval ::dict lappend dictv [list $key] $args]
        }
    
        method remove {args} {
    	variable dictv
    	return [::set dictv [eval ::dict remove [list $dictv] $args]]
        }
    
        method replace {args} {
    	variable dictv
    	return [::set dictv [eval ::dict replace [list $dictv] $args]]
        }
    
        method set {args} {
    	variable dictv
    	return [::set dictv [eval ::dict set dictv $args]]
        }
    
        method size {} {
    	variable dictv
    	return [::dict size $dictv]
        }
    
        method unset {args} {
    	variable dictv
    	return [eval ::dict unset dictv $args]
        }
    
        method values {{glob *}} {
    	variable dictv
    	return [::dict values $dictv $glob]
        }
    
        method subdict {sub args} {
    	variable dictv
    	return [$self set [eval ::dict create $args]]
        }
    
        method serialize {} {
    	variable dictv
    	return $dictv
        }
    
        method restore {ser} {
    	variable dictv
    	eval dict set dictv $ser
        }
    
        constructor {args} {
    	variable dictv
    	::set dictv [eval ::dict create $args]
        }
        destructor {}
    }

----

[WHD]: Two questions: why are you declaring dictv in every method?  You don't need to.  Second, why are you explicitly qualifying "::set"?  You don't need to do that either.