X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=87d59bfeff89409b1a11e710afd14869fc12c4f2;hb=105bcb7e4b8751de36775c58c9bda318a5253225;hp=64cc4b3499b46834a622a4c4b1588cf621651b18;hpb=b0307c538e2018939a9b3ab00daa2099720ab1c3;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 64cc4b3..87d59bf 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -626,20 +626,20 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 
 (defun find-uso-cui (cui &key (srl *current-srl*) (english-only nil) limit)
   (ensure-cui-integer cui)
-  (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui)
+  (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui ts)
                                  srl cui cui :lrl srl :limit limit
                                  :filter (when english-only "LAT='ENG'"))
      (make-instance 'uso :aui aui :sab sab :code code :srl srl :tty tty
                     :cui cui :sui sui :saui saui :sdui sdui :scui scui
-                    :lat lat :str str)))
+                    :lat lat :str str :ts ts)))
 
 (defun find-uso-aui (aui &key (srl *current-srl*))
   (ensure-sui-integer aui)
   (collect-umlisp-query (mrconso (sab cui sui code srl tty saui sdui scui lat
-                                      str) srl aui aui :lrl srl :single t)
+                                      str ts) srl aui aui :lrl srl :single t)
     (make-instance 'uso :aui aui :cui cui :sab sab :code code :srl srl :tty tty
                    :sui sui :saui saui :sdui sdui :scui scui :lat lat
-                   :str str)))
+                   :str str :ts ts)))
 
 (defun find-uhier-cui (cui &key (srl *current-srl*))
   (ensure-cui-integer cui)