diff --git a/collects/drscheme/private/language-object-contract.ss b/collects/drscheme/private/language-object-contract.ss
index d77693741c..fb36810c70 100644
--- a/collects/drscheme/private/language-object-contract.ss
+++ b/collects/drscheme/private/language-object-contract.ss
@@ -81,9 +81,9 @@
                  
                  (capability-value 
                   (->d ([s (and/c symbol? 
-                                  drscheme:language:get-capability-contract)])
+                                  drscheme:language:capability-registered?)])
                        ()
-                       [res (drscheme:language:capability-registered? s)]))))])
+                       [res (drscheme:language:get-capability-contract s)]))))])
            #`(begin
                (define id (reconstitute #,ctc provide?))
                #,@(if (syntax-e #'provide?)