diff --git a/lib/tcl/tests/idioms.sx b/lib/tcl/tests/idioms.sx
index 425d0959..35370dac 100644
--- a/lib/tcl/tests/idioms.sx
+++ b/lib/tcl/tests/idioms.sx
@@ -652,7 +652,7 @@
     (ok "oo-constructor"
       (get
         (run
-          "oo::class create G {\nconstructor {n} { set ::g-name $n }\nmethod hello {} { return [string cat \"hi \" $::g-name] }\n}\nset g [G new World]\n$g hello")
+          "oo::class create G {\nconstructor {n} { set ::gname $n }\nmethod hello {} { return [string cat \"hi \" $::gname] }\n}\nset g [G new World]\n$g hello")
         :result)
       "hi World")
 
@@ -673,7 +673,7 @@
     (ok "oo-multiple-instances"
       (get
         (run
-          "oo::class create N {\nconstructor {x} { set ::n-val $x }\nmethod get {} { return $::n-val }\n}\nset a [N new 1]\nset b [N new 99]\n$b get")
+          "oo::class create N {\nconstructor {x} { set ::nval $x }\nmethod get {} { return $::nval }\n}\nset a [N new 1]\nset b [N new 99]\n$b get")
         :result)
       "99")