--- modules/snit/snit.test.orig	Thu Mar  1 12:39:28 2007
+++ modules/snit/snit.test	Thu Mar  1 12:52:09 2007
@@ -5784,13 +5784,19 @@
 #-----------------------------------------------------------------------
 # expose statement
 
+if {[package vsatisfies [package present Tcl] 8.5]} {
+    set expose_msg "expose"
+} else {
+    set expose_msg "::snit::Comp.statement.expose"
+}
+
 test expose-1.1 {can't expose nothing} -body {
     type dog {
 	expose
     }
 } -returnCodes {
     error
-} -result [tcltest::wrongNumArgs ::snit::Comp.statement.expose {component ?as? ?methodname?} 0]
+} -result [tcltest::wrongNumArgs $expose_msg {component ?as? ?methodname?} 0]
 
 test expose-1.2 {expose a component that's never installed} -body {
     type dog {
