diff --git a/collects/tests/typed-scheme/succeed/little-schemer.ss b/collects/tests/typed-scheme/succeed/little-schemer.ss
index 2233e8d244..ea7bd5e509 100644
--- a/collects/tests/typed-scheme/succeed/little-schemer.ss
+++ b/collects/tests/typed-scheme/succeed/little-schemer.ss
@@ -17,10 +17,11 @@
 (define-syntax (cond* stx)
   (syntax-case stx (else)
     [(_ [pred expr id rhs] . rest)
-     #'(let ([id expr])
-         (if (pred id) 
-             rhs
-             (cond . rest)))]
+     (quasisyntax/loc stx
+         (let ([id expr])
+           (if (pred id) 
+               rhs
+               #,(syntax/loc #'rest (cond . rest)))))]
     [(_ [else . rest]) #'(begin . rest)]
     [(_ [p . rhs] . rest)
      #'(if p (begin . rhs)