===================================================================
RCS file: /home/cvs/OpenXM/src/k097/slib.sm1,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- OpenXM/src/k097/slib.sm1	2001/01/08 05:26:49	1.8
+++ OpenXM/src/k097/slib.sm1	2001/01/13 01:17:36	1.9
@@ -470,6 +470,13 @@ FunctionValue } def
 this [ %% function args 
 Arglist ] {Length} sendmsg2 
 /argsize  set
+this [ %% function args 
+vList ] {IsArray} sendmsg2 
+ %% if-condition
+  { %%ifbody
+  vList {toString} map from_records /vList set    }%%end if if body
+  { %%if- else part
+  } ifelse
 argsize (1)..  eq
  %% if-condition
   { %%ifbody