# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1302456507 -3600
# Node ID d605fd37b0eede02a279594a6c212dea144baaae
# Parent  b75b45d76e459996e5524bbc5b603cdd9e5b8d50
fix mtp description again - return the string not '(string)

diff -r b75b45d76e45 -r d605fd37b0ee implementations/mtp/methods.lisp
--- a/implementations/mtp/methods.lisp	Sun Apr 10 16:59:24 2011 +0100
+++ b/implementations/mtp/methods.lisp	Sun Apr 10 18:28:27 2011 +0100
@@ -34,7 +34,7 @@
     ;; for each db-composition 
     (dolist (dbc db-compositions)
       (let ((composition-id (car dbc))
-            (description (cdr dbc)))
+            (description (cadr dbc)))
         ;; for each db-event 
         (do* ((dbes db-events (cdr dbes))
               (dbe (car dbes) (car dbes))