X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fchill.lisp;h=9878c7e88753979d00a3db24b53470a850dd478d;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=92b19c907884f1dc8b0436e8e4222c4d6177ac8d;hpb=4aef4760057ae2f236418ef5fcb410f027961a18;p=sbcl.git

diff --git a/src/cold/chill.lisp b/src/cold/chill.lisp
index 92b19c9..9878c7e 100644
--- a/src/cold/chill.lisp
+++ b/src/cold/chill.lisp
@@ -20,7 +20,7 @@
 (in-package "SB-COLD")
 
 ;;; We need the #! readtable modifications.
-(load "src/cold/shebang.lisp")
+(load (merge-pathnames "shebang.lisp" *load-truename*))
 
 ;;; #!+ and #!- now refer to *FEATURES* values (as opposed to the way
 ;;; that they referred to special target-only *SHEBANG-FEATURES* values
@@ -40,7 +40,8 @@
 	(nicknames (package-nicknames package))
 	(warm-name-prefix "SB-")
 	(cold-name-prefix "SB!"))
-    (when (string= name warm-name-prefix :end1 (length warm-name-prefix))
+    (when (and (> (length name) (length warm-name-prefix))
+	       (string= name warm-name-prefix :end1 (length warm-name-prefix)))
       (let* ((stem (subseq name (length cold-name-prefix)))
 	     (cold-name (concatenate 'simple-string cold-name-prefix stem)))
 	(rename-package package name (cons cold-name nicknames))))))