diff --git a/collects/srfi/63/63.ss b/collects/srfi/63/63.ss
index 83dfcde663..cfe9082cde 100644
--- a/collects/srfi/63/63.ss
+++ b/collects/srfi/63/63.ss
@@ -332,9 +332,10 @@
    
    (make-shared-array
     (->* (array?
-          (unconstrained-domain-> natural-number/c))
+          (unconstrained-domain-> (listof natural-number/c)))
          (listof natural-number/c)
          any))
+   
    (list->array
     (->r ((rank natural-number/c)
           (proto array?)