diff --git a/collects/scheme/contract/private/ds.ss b/collects/scheme/contract/private/ds.ss
index e9a5fbb769..c33b8f0907 100644
--- a/collects/scheme/contract/private/ds.ss
+++ b/collects/scheme/contract/private/ds.ss
@@ -466,7 +466,7 @@ it around flattened out.
     [else
      (let ([fields 
             (map (λ (field ctc) 
-                   (if (contract? ctc)
+                   (if (contract-struct? ctc)
                        (build-compound-type-name field ctc)
                        (build-compound-type-name field '...)))
                  fields