diff --git a/collects/tests/typed-scheme/succeed/flvector.ss b/collects/tests/typed-scheme/succeed/flvector.ss
index 9643c148c3..9ee9e90013 100644
--- a/collects/tests/typed-scheme/succeed/flvector.ss
+++ b/collects/tests/typed-scheme/succeed/flvector.ss
@@ -19,6 +19,7 @@
 
 ;; Check the FlVector type is exported
 (define: v : FlVector (flvector 1. 2. 3.))
+(define-struct: Foo ([vec : FlVector]) #:transparent)
 
 (check equal? (flvector 1. 2. 3. 4.) (flvector 1. 2. 3. 4.))
 (check equal? (flvector? (flvector 1. 2. 3.)) #t)
diff --git a/collects/typed-scheme/types/abbrev.ss b/collects/typed-scheme/types/abbrev.ss
index 8bcd6539a7..e30f9f1244 100644
--- a/collects/typed-scheme/types/abbrev.ss
+++ b/collects/typed-scheme/types/abbrev.ss
@@ -11,7 +11,7 @@
          scheme/flonum
          (prefix-in c: scheme/contract)
          (for-syntax scheme/base syntax/parse)
-	 (for-template scheme/base scheme/contract scheme/promise scheme/tcp))
+	 (for-template scheme/base scheme/contract scheme/promise scheme/tcp scheme/flonum))
 
 (provide (all-defined-out)
          (rename-out [make-Listof -lst]))