diff --git a/collects/tests/typed-racket/succeed/custodian.rkt b/collects/tests/typed-racket/succeed/custodian.rkt
new file mode 100644
index 0000000000..8cf5031fa2
--- /dev/null
+++ b/collects/tests/typed-racket/succeed/custodian.rkt
@@ -0,0 +1,6 @@
+#lang typed/racket                                                                                                                                                                                                                        
+
+;; Make sure the Custodian type is bound
+
+(: cust Custodian)
+(define cust (current-custodian))
\ No newline at end of file
diff --git a/collects/typed-racket/types/abbrev.rkt b/collects/typed-racket/types/abbrev.rkt
index df0a3a2bdd..30e8258ac2 100644
--- a/collects/typed-racket/types/abbrev.rkt
+++ b/collects/typed-racket/types/abbrev.rkt
@@ -214,7 +214,7 @@
 (define -Special-Comment
   (make-Base 'Special-Comment #'special-comment? special-comment? #'-Special-Comment))
 
-(define -Custodian (make-Base 'Custodian #'custodian? custodian? #'Custodian))
+(define -Custodian (make-Base 'Custodian #'custodian? custodian? #'-Custodian))
 
 (define -Parameterization (make-Base 'Parameterization #'parameterization? parameterization? #'-Parameterization))