Index: tests/varresolutiontest.tcl
===================================================================
diff -u -rc5d841d4cd001b85e95e01202b4fc0afe75df6a8 -r8651e9f7d6d526196cfe4dad14d08b857a66f5d8
--- tests/varresolutiontest.tcl	(.../varresolutiontest.tcl)	(revision c5d841d4cd001b85e95e01202b4fc0afe75df6a8)
+++ tests/varresolutiontest.tcl	(.../varresolutiontest.tcl)	(revision 8651e9f7d6d526196cfe4dad14d08b857a66f5d8)
@@ -748,5 +748,31 @@
   }} 1 
 }
 
+#
+# test for former crash when variable is used in connection with
+# prefixed variables
+#
+Test case tcl-variable-cmd {
+  Object create o {
+    :public method ? {varname} {info exists :$varname}
+    :public method bar args {
+      variable :a
+      set a 3
+      variable b
+      set b 3
+      variable c 1
+      variable :d 1
+      :info vars
+    }
+  }
 
-
+  ? {o bar} d
+  ? {o ? a} 0
+  ? {o ? b} 0
+  ? {o ? c} 0
+  ? {o ? d} 1
+  ? {lsort [o info vars]} d
+  o eval {set :a 1}
+  ? {o ? a} 1
+  ? {lsort [o info vars]} "a d"
+}