Index: /trunk/Ohana/src/opihi/lib.shell/check_stack.c
===================================================================
--- /trunk/Ohana/src/opihi/lib.shell/check_stack.c	(revision 3413)
+++ /trunk/Ohana/src/opihi/lib.shell/check_stack.c	(revision 3414)
@@ -3,4 +3,5 @@
 int check_stack (StackVar *stack, int Nstack, int validsize) {
 
+  double tmp;
   int i, Nx, Ny, Nv, size;
   char *c;
Index: /trunk/Ohana/src/opihi/lib.shell/convert_to_RPN.c
===================================================================
--- /trunk/Ohana/src/opihi/lib.shell/convert_to_RPN.c	(revision 3413)
+++ /trunk/Ohana/src/opihi/lib.shell/convert_to_RPN.c	(revision 3414)
@@ -1,4 +1,4 @@
 # include "opihi.h"
-/* # define DUMPSTACK * for tests */
+# define DUMPSTACK 0
 
 StackVar *convert_to_RPN (int argc, char **argv, int *nstack) {
@@ -176,5 +176,5 @@
   free (argv);
 
-#ifdef DUMPSTACK
+# if (DUMPSTACK)
   for (i = 0; i < Nstack; i++) {
     fprintf (stderr, "%s ", stack[i].name);
@@ -185,5 +185,5 @@
   }
   if (Nstack > 0) fprintf (stderr, "\n");
-#endif
+# endif
 
   return (stack);
Index: /trunk/Ohana/src/opihi/lib.shell/dvomath.c
===================================================================
--- /trunk/Ohana/src/opihi/lib.shell/dvomath.c	(revision 3413)
+++ /trunk/Ohana/src/opihi/lib.shell/dvomath.c	(revision 3414)
@@ -63,5 +63,5 @@
   switch (*size) {
     case 0:
-      sprintf (outname, "%g", stack[0].Float);
+      sprintf (outname, "%.12g", stack[0].Float);
       break;
 
Index: /trunk/Ohana/src/opihi/lib.shell/variable.c
===================================================================
--- /trunk/Ohana/src/opihi/lib.shell/variable.c	(revision 3413)
+++ /trunk/Ohana/src/opihi/lib.shell/variable.c	(revision 3414)
@@ -83,5 +83,5 @@
   char value[1024];
 
-  sprintf (value, "%.9g", dvalue);
+  sprintf (value, "%.12g", dvalue);
   set_str_variable (name, value);
   return (TRUE);