diff --git a/test/file1.lisp b/test/file1.lisp
index 3612a2bac5c73f94f6ba05a742e5d1f0ec9c8716..e6b63ac79b2d30017b56b480a75c88c884b2c321 100644
--- a/test/file1.lisp
+++ b/test/file1.lisp
@@ -1,4 +1,3 @@
 (defpackage :test-package (:use :cl))
 (in-package :test-package)
 (defvar *file1* t)
-
diff --git a/test/script-support.lisp b/test/script-support.lisp
index 433611f5a9a1f7de4b11cc9e42a45824d7bd2dce..a007b3a8cd090af8972b914bb7ec2538cc3b4f2c 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -44,6 +44,13 @@
 #+allegro
 (setf excl:*warn-on-nested-reader-conditionals* nil)
 
+(defun native-namestring (x)
+  (let* ((p (pathname x)))
+    #+clozure (ccl:native-translated-namestring p)
+    #+(or cmu scl) (ext:unix-namestring p)
+    #+sbcl (sb-ext:native-namestring p)
+    #-(or clozure cmu sbcl scl) (namestring p)))
+
 ;;; code adapted from cl-launch http://www.cliki.net/cl-launch
 (defun leave-lisp (message return)
   (fresh-line *error-output*)
diff --git a/test/test-multiple.script b/test/test-multiple.script
index e5d4cd184a10a6627215cb849271c0578b693cb4..2cd85838eae6e13ca56c60a42a0197e9f8bae6ac 100644
--- a/test/test-multiple.script
+++ b/test/test-multiple.script
@@ -13,8 +13,8 @@
    (setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp))
    (assert (= 0 (asdf:run-shell-command
                  (format nil "/bin/ln -sf ~A ~A"
-                         (#-scl namestring #+scl ext:unix-namestring asd)
-                         (#-scl namestring #+scl ext:unix-namestring asd2 #+scl nil)))))
+                         (native-namestring asd)
+                         (native-namestring asd2)))))
    (asdf:oos 'asdf:load-source-op 'test-multiple-too)
    (assert (symbol-value (find-symbol (string :*file3*) :test-package)))
    (asdf:load-system 'test-multiple-free)
diff --git a/test/test.lisp b/test/test.lisp
index b72db4bc5204d420bf864dfcfac247ae1341143b..54d513487f4df55638b9ded323a8558e1374bfc3 100644
--- a/test/test.lisp
+++ b/test/test.lisp
@@ -1,4 +1,8 @@
 ;;;; Example lisp code.
+(in-package :cl-user)
 
 (defun tst (x)
   (1+ x))
+
+(defun add10 (x)
+  (+ x 10))
diff --git a/test/test3.script b/test/test3.script
index a8bdcee15c9090fea62b5cd2bf77e30c13fc9b61..f3e42abae7521fbc926e2d30c2004c7354739c93 100644
--- a/test/test3.script
+++ b/test/test3.script
@@ -6,8 +6,8 @@
 (cl-user::quit-on-error
  (let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
         (fasl2 (asdf:compile-file-pathname* (truename "file2.lisp")))
-        (ns1 (#-scl namestring #+scl ext:unix-namestring fasl1))
-        (ns2 (#-scl namestring #+scl ext:unix-namestring fasl2)))
+        (ns1 (native-namestring fasl1))
+        (ns2 (native-namestring fasl2)))
      (asdf:run-shell-command "rm -f ~A ~A" ns1 ns2)
      (setf asdf:*central-registry* '(*default-pathname-defaults*))
      #-gcl