diff --git a/asdf.lisp b/asdf.lisp
index 3057fcc76953345eb4feb1e762e1ec1075550eae..34d9c1a7d49cb8742c7ed070024030cfa38c1747 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.37 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.38 $
 ;;;
 ;;; The canonical source for asdf is presently the cCLan CVS repository,
 ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
@@ -86,7 +86,7 @@
 (in-package #:asdf)
 
 ;;; parse the cvs revision into something that might be vaguely useful.  
-(defvar *asdf-revision* (let* ((v "$Revision: 1.37 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.38 $")
 			       (colon (position #\: v))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -329,7 +329,7 @@ and NIL NAME and TYPE components"
 	       (or (not in-memory)
 		   (< (car in-memory) (file-write-date on-disk))))
       (let ((*package* (make-package (gensym (package-name #.*package*))
-				     :use '("CL" "ASDF"))))
+				     :use '(:cl :asdf))))
 	(format t ";;; Loading system definition from ~A into ~A~%"
 		on-disk *package*)
 	(load on-disk)))
@@ -851,7 +851,7 @@ output to *trace-output*.  Returns the shell's exit code."
       (list  "-c" command)
       :input nil :output *trace-output*))))
 
-#+cmu
+#+(or cmu scl)
 (defun run-shell-command (control-string &rest args)
   "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
 synchronously execute the result using a Bourne-compatible shell, with
diff --git a/test/file1.lisp b/test/file1.lisp
index 98b6cf45958f7e804cba27e174c3667bf3ce2d1e..3612a2bac5c73f94f6ba05a742e5d1f0ec9c8716 100644
--- a/test/file1.lisp
+++ b/test/file1.lisp
@@ -1,4 +1,4 @@
-(defpackage :test-package (:use "CL"))
+(defpackage :test-package (:use :cl))
 (in-package :test-package)
 (defvar *file1* t)
 
diff --git a/test/file3.lisp b/test/file3.lisp
index 7f2f130eae7c736457a282580e81c066e0bfada0..0ed2df7bc46b88e31b309f4ab829f26d2d6a74a6 100644
--- a/test/file3.lisp
+++ b/test/file3.lisp
@@ -1,4 +1,4 @@
-(defpackage :test-package (:use "CL"))
+(defpackage :test-package (:use :cl))
 (in-package :test-package)
 (defvar *file3* t)