diff --git a/storage/storage.lisp b/storage/storage.lisp
index 1fd5939..d5ce594 100644
--- a/storage/storage.lisp
+++ b/storage/storage.lisp
@@ -63,15 +63,11 @@
 
 (defun query (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
+    ;(log:info "sql: ~s, args: ~s" sql args)
     (let* ((qp (dbi:prepare (conn st) sql))
            (qx (dbi:execute qp args)))
       (dbi:fetch-all qx))))
 
-(defun xdo-sql (st spec)
-  (multiple-value-bind (sql args) (sxql:yield spec)
-    ;(print sql)
-    (dbi:do-sql (conn st) sql args)))
-
 (defun do-sql (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
     (let* ((conn (conn st))
diff --git a/storage/tracking.lisp b/storage/tracking.lisp
index 97ae5e6..a5f33f4 100644
--- a/storage/tracking.lisp
+++ b/storage/tracking.lisp
@@ -72,6 +72,7 @@
     (setup-track tr row)))
 
 (defun setup-track (tr row)
+  ;(log:info "tr: ~s, row: ~s" tr row)
   (let ((hv (mapcar #'(lambda (x) (getf row x)) (shape:head-fields tr))))
     (setf (shape:head tr) hv)
     (setf (trackid tr) (getf row :trackid))
diff --git a/test/test-storage.lisp b/test/test-storage.lisp
index 3006aa1..35ba68f 100644
--- a/test/test-storage.lisp
+++ b/test/test-storage.lisp
@@ -62,10 +62,13 @@
 (deftest test-msglog (ctx)
   (let ((st (storage:storage ctx))
         (data (make-hash-table))
-        cont msg pm)
+        cont msg pm pm2)
     (setf cont (msglog:make-container st))
     (storage:drop-table st :messages)
     (tracking:create-table cont)
     (setf msg (message:create '(:test :data :field :info) :data '(:info "test data")))
     (setf pm (msglog:save msg cont))
+    (== (tracking:trackid pm) 1)
+    (setf pm2 (tracking:get-track cont 1))
+    (log:info "pm2: ~s" pm2)
     ))