Index: mttroot/mtt/bin/trans/m/str2ch.m
==================================================================
--- mttroot/mtt/bin/trans/m/str2ch.m
+++ mttroot/mtt/bin/trans/m/str2ch.m
@@ -17,16 +17,15 @@
 % %% $Log$
 % %% Revision 1.1  1996/08/30  09:54:44  peter
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-implicit_str_to_num_ok = 'true';
-str = abs(str);
+implicit_str_to_num_ok = 1;
 
-if (n>0) &  (n<=length(str))
-  ch = setstr(str(n));
+astr = abs(str);
+if (n>0) &  (n<=length(str)) & (strcmp(str,'')==0)
+  ch = setstr(astr(n));
 else
   ch = '';
 end;