===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/xm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- OpenXM_contrib2/asir2000/lib/xm	2003/05/18 00:13:14	1.19
+++ OpenXM_contrib2/asir2000/lib/xm	2003/05/21 23:31:54	1.20
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.18 2002/08/10 11:12:32 takayama Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.19 2003/05/18 00:13:14 takayama Exp $ 
 */
 /**  xm  **/
 Xm_noX = 0$  
@@ -217,6 +217,12 @@ def first(A) {return(A[0]);}
 
 
 def ox_grep(A) {
+  if (type(A) == 2) {
+    A = rtostr(A);
+  }else if (type(A) != 7) {
+    return("Usage: ox_grep(keyword)");
+  }
+
   if (ox_getenv("LANG") == "ja_JP.EUC") {
     F = get_rootdir()+"/help-jp/";
   }else{