1.1--- a/lisp/lib/skel/core/obj.lisp	Mon May 13 21:10:33 2024 -0400
     1.2+++ b/lisp/lib/skel/core/obj.lisp	Mon May 13 21:13:46 2024 -0400
     1.3@@ -448,7 +448,7 @@
     1.4                                               (sb-posix:getenv (format nil "~a" (symbol-name e)))))
     1.5                                      (string (cons
     1.6                                               (sb-int:keywordicate e)
     1.7-                                              (sb-posix:getenv (format nil "~a" (symbol-name e)))))
     1.8+                                              (sb-posix:getenv (string-upcase e))))
     1.9                                      (list
    1.10                                       (cons (sb-int:keywordicate (car e)) (cdr e)))))
    1.11