diff --git a/slynk/backend/sbcl.lisp b/slynk/backend/sbcl.lisp
index d1a782b4b..03ad6b2f7 100644
--- a/slynk/backend/sbcl.lisp
+++ b/slynk/backend/sbcl.lisp
@@ -1003,7 +1003,9 @@ QUALITIES is an alist with (quality . value)"
                       '(:position 1)
                       (when (eql type :function)
                         `(:snippet ,(format nil "(defun ~a "
-                                            (symbol-name name))))))
+                                            (etypecase name
+                                              (symbol (symbol-name name))
+                                              (string name)))))))
       (:invalid
        (error "DEFINITION-SOURCE of ~(~A~) ~A did not contain ~
                meaningful information."