Index: trunk/Ohana/src/opihi/lib.shell/dvomath.c
===================================================================
--- trunk/Ohana/src/opihi/lib.shell/dvomath.c	(revision 4689)
+++ trunk/Ohana/src/opihi/lib.shell/dvomath.c	(revision 6250)
@@ -57,4 +57,5 @@
 
   /* evaluate operations, free stack on error */
+  Ncstack = Nstack;
   if (!evaluate_stack (stack, &Nstack)) {
     if (*size == 1) DeleteVector (vec);
@@ -65,5 +66,10 @@
   switch (*size) {
     case 0:
-      sprintf (outname, "%.12g", stack[0].Float);
+      if (Ncstack == 1) {
+	  /* use exact input work */
+	  sprintf (outname, "%s", stack[0].name);
+      } else {
+	  sprintf (outname, "%.12g", stack[0].Float);
+      }
       break;