From b58e3def9d7bd3e468d504a349893356e48840d9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 25 Mar 2012 13:13:40 -0700
Subject: [PATCH] Handle non-string value of *buffer-pstring*.

---
 src/runtime/swank.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index 5da20666d..e308ee88f 100644
--- 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)
-- 
2.25.1