===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v
retrieving revision 1.3
retrieving revision 1.6
diff -u -p -r1.3 -r1.6
--- OpenXM/src/kan96xx/Doc/oxasir-win.sm1	2001/12/28 03:33:21	1.3
+++ OpenXM/src/kan96xx/Doc/oxasir-win.sm1	2001/12/28 08:33:20	1.6
@@ -1,8 +1,8 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.2 2001/12/28 01:20:26 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.5 2001/12/28 08:18:23 takayama Exp $
 % It is empty for now.
 %
 /oxasir.sm1.loaded 1 def
-(oxasir-win.sm1 (C) N.Takayama, 12/17, 2001) message
+(oxasir-win.sm1 (C) N.Takayama, 12/28, 2001) message
 
 %% Set constants for windows.
 /oxasirpath.oxasir  
@@ -21,12 +21,16 @@ def
 def
 %% Override asirconnectr
 /asirconnectr {
+ [(getenv) (OSTYPE)] extension tag 0 eq {
+     asirconnectr_win
+ }{
    [(getenv) (OSTYPE)] extension (cygwin) eq
    {
      asirconnectr_cygwin
    }{
      asirconnectr_win
    }ifelse
+ } ifelse
 } def
 
 /asirconnectr_cygwin {