diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp
index 11dcabd..9e3135a 100644
--- a/src/sources/mssql/mssql-schema.lisp
+++ b/src/sources/mssql/mssql-schema.lisp
@@ -64,6 +64,7 @@
                            table-type-name
                            incl-where   ; do we print the clause?
                            incl-where
+                           excl-where   ; do we print the clause?
                            excl-where))
      :do (let* ((schema     (maybe-add-schema catalog schema-name))
                 (table      (maybe-add-table schema table-name))