Index: tolbase/lib/byswidget/bfunctions/bftoltcl.tcl
===================================================================
--- tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision de6ceb511958e4611014de24f3cfe563ac58062a)
+++ tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision b67be8d0ab9be6e652f31771294c86ccdbeb979a)
@@ -651,2 +651,19 @@
   return $delimeter
 }
+
+
+
+#///////////////////////////////////////////////////////////////////////////
+proc EvalTolExp {grammar expression {seed _tempName}} {
+# PURPOSE: Evaluates a tol expression $expression from grammar $grammar
+# RETURNS: Content of evaluated expression
+#
+#///////////////////////////////////////////////////////////////////////////
+  set nRes [GetUniqueName $grammar $seed]
+  set cmd "$grammar $nRes = $expression;"
+  ::tol::console eval $cmd
+  array set info [TclInfoVar $grammar $nRes]
+  eval "set lstRes $info(CONTENT)"
+  ::tol::console stack release $nRes
+  return $lstRes
+}