Handle non-string value of *buffer-pstring*.

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index 5da20666da57be88877458035d0f6680cb17585b..e308ee88f9b2f52a8237c0271e561c6666cedfb3 100644 (file)
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -224,6 +224,7 @@ USA.
 
 (define (pstring->env pstring)
   (cond ((or (not (string? pstring))
+            (not (string? *buffer-pstring*))
             (string-ci=? *buffer-pstring* "COMMON-LISP-USER"))
         (get-current-environment))
        ((string-prefix? anonymous-package-prefix pstring)