diff --git a/lib/srfi/160/test.sld b/lib/srfi/160/test.sld
index 41337b4b..c70e3091 100644
--- a/lib/srfi/160/test.sld
+++ b/lib/srfi/160/test.sld
@@ -27,6 +27,10 @@
         (test '#u32(0 1 2 3) (u32vector-concatenate '(#u32(0 1) #u32(2 3))))
         (test '#u32(0 1 6 7)
           (u32vector-append-subvectors '#u32(0 1 2 3 4) 0 2 '#u32(4 5 6 7 8) 2 4))
+        (test '#u32(1 2)
+          (vector->u32vector '#(0 1 2 3) 1 3))
+        (test '#(1 2)
+          (u32vector->vector '#u32(0 1 2 3) 1 3))
         )
 
       (test-group "uvectors/predicates"
diff --git a/lib/srfi/160/uvector.scm b/lib/srfi/160/uvector.scm
index e78fe7df..80adfcea 100644
--- a/lib/srfi/160/uvector.scm
+++ b/lib/srfi/160/uvector.scm
@@ -318,11 +318,11 @@
 (define (uvector->list vec . o)
   (reverse (apply reverse-vector->list vec o)))
 
-(define (uvector->vector vec)
-  (list->vector (uvector->list vec)))
+(define (uvector->vector vec . o)
+  (list->vector (apply uvector->list vec o)))
 
-(define (vector->uvector vec)
-  (list->uvector (vector->list vec)))
+(define (vector->uvector vec . o)
+  (list->uvector (apply vector->list vec o)))
 
 (define make-vector-generator
   (let ((eof (read-char (open-input-string ""))))