===================================================================
RCS file: /home/cvs/OpenXM/src/Macaulay2/m2/oxclient.m2,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/Macaulay2/m2/oxclient.m2	2000/12/14 05:09:29	1.2
+++ OpenXM/src/Macaulay2/m2/oxclient.m2	2000/12/17 08:31:39	1.4
@@ -1,4 +1,4 @@
-ID=" $OpenXM: OpenXM/src/Macaulay2/m2/oxclient.m2,v 1.1 2000/09/21 09:20:53 takayama Exp $ "
+ID=" $OpenXM: OpenXM/src/Macaulay2/m2/oxclient.m2,v 1.3 2000/12/14 05:28:05 takayama Exp $ "
 
 load "oxcommon.m2"
 
@@ -241,18 +241,20 @@ oxPrimDecomp(OXSESSION, Ideal) := (F, I) -> (
 
 makeLaunchCommand=(UseSSH,MyHostName,RemoteLoginName,RemoteHostName,OxServerName,dPort,cPort,PASS)->(
      commXterm := toString " xterm -geometry 80x25-0-0 " ;
-     commOX :=toString " -e ox -ox " | OxServerName | 
+     commOX :=toString " -e ox -ox " | 
+               getenv("OpenXM_HOME") | "/bin/" |
+               OxServerName | 
                        " -data " | dPort |
     		       " -control " | cPort |
 		       " -reverse " |
 		       " -host " | RemoteHostName | 
 		       " -pass " | PASS   | "  ";
      if (UseSSH) then (
-	  comm = toString "ssh -f -l " | RemoteLoginName | " " | 
+	  comm = toString "ssh -f -X -A -l " | RemoteLoginName | " " | 
 	                   RemoteHostName |
 	                   " '" | commXterm |
   		           --uncomment when X11 forwarding is not allowed.
-			   " -display " | MyHostName | ":0 " | 
+			   -- " -display " | MyHostName | ":0 " | 
 			   commOX | "'  >/dev/null ";
 	  )
      else  (