diff --git a/tools/clog-db-admin.lisp b/tools/clog-db-admin.lisp
index 677f8cc..568b314 100644
--- a/tools/clog-db-admin.lisp
+++ b/tools/clog-db-admin.lisp
@@ -133,7 +133,7 @@
 							 data)))
 			      (cadar data))
                       (mapcar #'second data))))
-		 (results-window app "select changes()" :title table)))))
+		 (results-window app "select changes()" :title table))))
 
 (defun on-query-tables (obj)
   (let ((app (connection-data-item obj "app-data")))