X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=3a1ac39df773d543fb41266cdcbdd8f90793a373;hb=d31820a74816f320079eeed9448c41272f7c9692;hp=e70c638d3a485963e4abe5875219b15751ccb811;hpb=0f5f4f56ab77890ac68b8fb34a2edcca4962e152;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index e70c638..3a1ac39 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -507,9 +507,10 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 (defun find-ucxt-cuisui (cui sui &key (srl *current-srl*))
   (ensure-cui-integer cui)
   (ensure-sui-integer sui)
-  (collect-umlisp-query (mrcxt (sab code cxn cxl cxs cui2 hcd rela xc)
+  (collect-umlisp-query (mrcxt (sab rank code cxn cxl cxs cui2 hcd rela xc)
 			    srl kcuisui (make-cuisui cui sui) :lrl ksrl)
-    (make-instance 'ucxt :sab sab :code code
+			(make-instance 'ucxt :sab sab :code code
+  	        :rank rank
 		   :cxn (ensure-integer cxn) :cxl cxl :cxs cxs :hcd hcd
 		   :rela rela :xc xc
 		   :cui2 (ensure-integer cui2))))