diff --git a/graph-info.hl.rkt b/graph-info.hl.rkt
index 6fc93ed..6a6c450 100644
--- a/graph-info.hl.rkt
+++ b/graph-info.hl.rkt
@@ -297,8 +297,9 @@ data.
                                  _)))
              {~optional {~and prefab #:prefab}})
          #:with name/c (format-id #'name "~a/c" #'name)
-         (quasisyntax/top-loc (stx-car this-syntax)
-           #,(template
+         ;(quasisyntax/loc (stx-car this-syntax)
+         ;  #,
+         (template
               (begin
                 (struct name (?? parent) (field ...)
                   (?? transparent)
@@ -316,7 +317,7 @@ data.
                                          ((?? (?@ [parent-field parent-contract]
                                                   ...))
                                           [field contract]
-                                          ...))))))))
+                                          ...)))))))
 
        ;<hash-set/c>
        <printer>
diff --git a/test/test-graph-type.rkt b/test/test-graph-type.rkt
index c896f00..fef0e84 100644
--- a/test/test-graph-type.rkt
+++ b/test/test-graph-type.rkt
@@ -15,7 +15,10 @@
   #:invariant City.citizens._ ∈ City.streets._.houses._.owner
   #:invariant City.citizens._ ∋ City.streets._.houses._.owner)
 
-(begin-for-syntax
-  (require racket/pretty)
-  (parameterize ([pretty-print-columns 188])
-    (pretty-print (syntax-local-value #'g1))))
\ No newline at end of file
+(begin
+  (require (for-syntax racket/pretty))
+  (define-syntax (debg _stx)
+    (parameterize ([pretty-print-columns 188])
+      (pretty-print (syntax-local-value #'g1)))
+    #'(void))
+  (debg))
\ No newline at end of file