diff --git a/collects/scheme/private/define-struct.ss b/collects/scheme/private/define-struct.ss
index a092f2fa5d..884cf59ccb 100644
--- a/collects/scheme/private/define-struct.ss
+++ b/collects/scheme/private/define-struct.ss
@@ -21,7 +21,7 @@
      checked-struct-info-rec?
      checked-struct-info-ref
      checked-struct-info-set!)
-    (make-struct-type 'struct-info struct:struct-info
+    (make-struct-type 'checked-struct-info struct:struct-info
                       0 0 #f
                       null (current-inspector)
                       (lambda (v stx)
diff --git a/collects/scheme/struct-info.ss b/collects/scheme/struct-info.ss
index 640b99453b..9210cb90db 100644
--- a/collects/scheme/struct-info.ss
+++ b/collects/scheme/struct-info.ss
@@ -1,4 +1,6 @@
 
 (module struct-info '#%kernel
-  (#%require "private/struct-info.ss")
-  (#%provide (all-from "private/struct-info.ss")))
+  (#%require "private/struct-info.ss"
+             (for-template "private/define-struct.ss"))
+  (#%provide (all-from "private/struct-info.ss")
+             checked-struct-info?))