--- unif.c.~1.146.~	2004-07-14 10:19:42.000000000 +1000
+++ unif.c	2004-07-23 14:41:01.000000000 +1000
@@ -1293,8 +1293,8 @@
 	= scm_num2long (obj, SCM_ARG2, FUNC_NAME);
       break;
     case scm_tc7_svect:
-      SCM_ASRTGO (SCM_INUMP (obj), badobj);
-      ((short *) SCM_UVECTOR_BASE (v))[pos] = SCM_INUM (obj);
+      ((short *) SCM_UVECTOR_BASE (v))[pos]
+	= scm_num2short (obj, SCM_ARG2, FUNC_NAME);
       break;
 #if SCM_SIZEOF_LONG_LONG != 0
     case scm_tc7_llvect: