X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Futils.lisp;h=d409977d1ef87c568e4a259324db0db0156165fb;hp=729109bd1ad98ed5ae21bcd24170414b738e5948;hb=c4da3cfcbb955395d8a556e1f89aadad696302b7;hpb=afa1e8481ca62ee15952c695fd04c8601b65b218

diff --git a/base/utils.lisp b/base/utils.lisp
index 729109b..d409977 100644
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -117,8 +117,8 @@
     (cond
       ((and at-pos (> (length str) at-pos))
        ;; Connection spec is SQL*NET format
-       (append (delimited-string-to-list (subseq str 0 at-pos) #\/)
-	       (list (subseq str (1+ at-pos)))))
+       (cons (subseq str (1+ at-pos))
+	     (delimited-string-to-list (subseq str 0 at-pos) #\/)))
       (t
        (delimited-string-to-list str #\/)))))