--- speech_tools/siod/siod.cc	2004-06-21 20:42:20 +0300
+++ speech_tools/siod/siod.cc	2006-11-12 21:38:21 +0200
@@ -289,9 +289,21 @@
 	return (float)FLONM(car(cdr(pair)));
     else
     {
+      // hack around buggy scm:
+      // in hts_voices from www.cstr.ed.ac.uk 
+      // some floating values are written as strings.
+      // we allow here 'string of a float' too
+      const char *str_param=get_c_string(car(cdr(pair)));
+      char *endptr;
+      double converted_param=strtod(str_param, &endptr);
+      if (endptr == str_param) {
+	// conversion failed
 	cerr << "param " << name << " not of type float" << endl;
 	err("",NIL);
 	return -1;
+      } else {
+	return (float) converted_param;
+      }
     }
 
 }