diff --git a/scheme/cyclone/transforms.scm b/scheme/cyclone/transforms.scm
index 2acb7730..ace90b38 100644
--- a/scheme/cyclone/transforms.scm
+++ b/scheme/cyclone/transforms.scm
@@ -913,12 +913,12 @@
 ;; if found. would then want to continue expanding. may need to 
 ;; return some value such as #t or nil as a placeholder, since the
 ;; define-syntax form would not be carried forward in the compiled code
-     ((define-syntax? exp)
-      (let* ((name (cadr exp))
-             (trans (caddr exp))
-             (body (cadr trans)))
-        (set! *defined-macros* (cons (cons name body) *defined-macros*))
-        #t))
+;     ((define-syntax? exp) ;; TODO: not good enough, should do error checking, and make sure list is big enough for cadr
+;      (let* ((name (cadr exp))
+;             (trans (caddr exp))
+;             (body (cadr trans)))
+;        (set! *defined-macros* (cons (cons name body) *defined-macros*))
+;        #t))
      ((macro? exp)
        (expand ;; Could expand into another macro
          (macro-expand exp)))