Index: xotcl/generic/xotclError.c
===================================================================
diff -u -rbb3c756fb47517596b9dbcb4e580aa1212827b41 -r2846921e448d4d4aeb3245ebbfe4381182f0e286
--- xotcl/generic/xotclError.c	(.../xotclError.c)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
+++ xotcl/generic/xotclError.c	(.../xotclError.c)	(revision 2846921e448d4d4aeb3245ebbfe4381182f0e286)
@@ -1,5 +1,5 @@
 /* -*- Mode: c++ -*-
- * $Id: xotclError.c,v 1.3 2006/09/14 06:36:02 neumann Exp $
+ * $Id: xotclError.c,v 1.4 2006/09/25 08:29:04 neumann Exp $
  *  
  *  Extended Object Tcl (XOTcl)
  *
@@ -77,10 +77,10 @@
 }
 
 int
-XOTclErrBadVal(Tcl_Interp *in, char *context, char *expected, char *value) {
+XOTclErrBadVal(Tcl_Interp *in, char *expected, char *value) {
   Tcl_ResetResult(in);
-  Tcl_AppendResult(in, context, ": expected ", expected, " but got '", 
-		   value, "'", 0);
+  Tcl_AppendResult(in, "expected ", expected, " but got", 0);
+  Tcl_AppendElement(in, value);
   return TCL_ERROR;
 }