diff --git a/src/db-utils.lisp b/src/db-utils.lisp
index a28a2ea..3769041 100644
--- a/src/db-utils.lisp
+++ b/src/db-utils.lisp
@@ -103,7 +103,7 @@
 
 (defun prepare-query (sql)
   "Compile a query in a format suitable to be executed"
-  #+debug-mode (misc:dbg "compiling ~a~%" sql)
+  #+(and debug-mode debug-sql) (misc:dbg "compiling ~a~%" sql)
   (sqlite:prepare-statement *connection* sql))
 
 (defun execute-query (prepared-sql &optional (parameters nil))
@@ -133,7 +133,7 @@
 
 (defun query-low-level (sql &optional (parameters nil))
   "prepare and Execute a text in SQL format"
-  #+debug-mode (misc:dbg  "sql ~a parameters ~a~%" sql parameters)
+  #+(and debug-mode debug-sql) (misc:dbg  "sql ~a parameters ~a~%" sql parameters)
   (execute-query (prepare-query sql) parameters))
 
 (defun query (q)
diff --git a/tinmop.asd b/tinmop.asd
index fa02592..ea14aa7 100644
--- a/tinmop.asd
+++ b/tinmop.asd
@@ -168,4 +168,6 @@
                              (:file "jsonrpc2-tests")))))
 
 ;;(push :debug-mode            *features*)
+;;(push :debug-sql             *features*)
 ;;(push :debug-gemini-request  *features*)
+;;(push :debug-json-rpc        *features*)