diff options
Diffstat (limited to 'utility-apps.lisp')
| -rw-r--r-- | utility-apps.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utility-apps.lisp b/utility-apps.lisp index da32674..9ef8cde 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -198,8 +198,8 @@ (let-cond (room (find-contact client name :like like :get-direct-room t) room) - (room (find-contact client name :like like) - (create-direct-message-room client room)))) + (full-name (find-contact client name :like like) + (create-direct-message-room client full-name)))) (defun create-direct-message-room (client name) |