diff --git a/pkgs/racket-doc/scribblings/foreign/com-auto.scrbl b/pkgs/racket-doc/scribblings/foreign/com-auto.scrbl
index c10cbaeb34..e295970af7 100644
--- a/pkgs/racket-doc/scribblings/foreign/com-auto.scrbl
+++ b/pkgs/racket-doc/scribblings/foreign/com-auto.scrbl
@@ -209,6 +209,14 @@ A constant for use with @racket[com-invoke] in place of an optional
 argument.}
 
 
+@defproc[(com-omit? [v any/c]) boolean?]{
+
+Returns @racket[#t] if @racket[v] is @racket[com-omit], @racket[#f]
+otherwise.
+
+@history[#:added "6.3.0.3"]}
+
+
 @; ----------------------------------------
 
 @section{COM Properties}
diff --git a/racket/collects/ffi/com.rkt b/racket/collects/ffi/com.rkt
index be1f5a42c1..71b8ac10cf 100644
--- a/racket/collects/ffi/com.rkt
+++ b/racket/collects/ffi/com.rkt
@@ -14,7 +14,7 @@
          com-release
          com-object-type com-type? com-type=?
 
-         com-methods com-method-type com-invoke com-omit
+         com-methods com-method-type com-invoke com-omit com-omit?
          com-get-properties com-get-property-type com-get-property
          com-get-property*
          com-set-properties com-set-property-type com-set-property!
diff --git a/racket/collects/ffi/unsafe/com.rkt b/racket/collects/ffi/unsafe/com.rkt
index b5b18e1e92..dc2691b8dc 100644
--- a/racket/collects/ffi/unsafe/com.rkt
+++ b/racket/collects/ffi/unsafe/com.rkt
@@ -54,7 +54,7 @@
          com-release
          com-object-type com-type? com-type=?
 
-         com-methods com-method-type com-invoke com-omit
+         com-methods com-method-type com-invoke com-omit com-omit?
          com-get-properties com-get-property-type com-get-property
          com-get-property*
          com-set-properties com-set-property-type com-set-property!
@@ -1407,10 +1407,10 @@
 
 (define-oleaut VariantInit (_wfun _VARIANT-pointer -> _void))
 
-(define com-omit 
+(define-values (com-omit com-omit?)
   (let ()
     (struct com-omit ())
-    (com-omit)))
+    (values (com-omit) com-omit?)))
 
 (define CY-factor 10000)
 
@@ -1732,13 +1732,14 @@
                 (let loop ([dims dims] [level 1] [index null])
                   (define lb (SafeArrayGetLBound sa level))
                   (for/vector ([i (in-range (car dims))])
-                    (if (null? (cdr dims))
-                        (let ([var (make-a-VARIANT)])
-                          (set-VARIANT-vt! var vt)
-                          (SafeArrayGetElement sa (reverse (cons i index)) 
-                                               (extract-variant-pointer var #t))
-                          (variant-to-scheme var #:mode mode))
-                        (loop (cdr dims) (add1 level) (cons i index))))))))
+                    (let ([i (+ i lb)])
+                      (if (null? (cdr dims))
+                          (let ([var (make-a-VARIANT)])
+                            (set-VARIANT-vt! var vt)
+                            (SafeArrayGetElement sa (reverse (cons i index)) 
+                                                 (extract-variant-pointer var #t))
+                            (variant-to-scheme var #:mode mode))
+                          (loop (cdr dims) (add1 level) (cons i index)))))))))
 
 (define (_IUnknown-pointer-or-com-object mode)
   (make-ctype