Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision 477d78a02c3df6fd549505e9579e2284885bdb3e)
+++ toltcl/generic/tolaccess.cpp	(revision 62931a4ee4a0995999b74dacaeb608a813ba504d)
@@ -650,8 +650,9 @@
           Tcl_DString dstr;
           Tcl_DStringInit(&dstr);
-          Tcl_UtfToExternalDString(NULL,Tcl_GetString(items[1]),-1,&dstr);
+          Tcl_UtfToExternalDString(NULL, Tcl_GetString(items[1]), -1, &dstr);
           if (!(syn = gra->FINDVARIABLE(Tcl_DStringValue(&dstr))))
             Tcl_AppendStringsToObj(obj_result, "variable '",
-                                   obj_ref, "' not found in grammar '",
+                                   Tcl_DStringValue( &dstr ),
+                                   "' not found in grammar '",
                                    gra->Name().String(), "'", NULL);
           Tcl_DStringFree(&dstr);