--- level-1/l1-files.lisp.~1~	2007-05-12 17:30:05.000000000 -0700
+++ level-1/l1-files.lisp	2007-06-02 11:42:21.000000000 -0700
@@ -81,14 +81,19 @@
 
 
 (defun native-translated-namestring (path)
-  (let ((name (translated-namestring path)))
-    ;; Check that no quoted /'s
-    (when (%path-mem-last-quoted "/" name)
-      (signal-file-error $xbadfilenamechar name #\/))
-    ;; Check that no unquoted wildcards.
-    (when (%path-mem-last "*" name)
-      (signal-file-error $xillwild name))
-    (namestring-unquote name)))
+  (native-namestring (translated-namestring path)))
+
+(defun native-untranslated-namestring (path)
+  (native-namestring (namestring path)))
+
+(defun native-namestring (name)
+  ;; Check that no quoted /'s
+  (when (%path-mem-last-quoted "/" name)
+    (signal-file-error $xbadfilenamechar name #\/))
+  ;; Check that no unquoted wildcards.
+  (when (%path-mem-last "*" name)
+    (signal-file-error $xillwild name))
+  (namestring-unquote name))
 
 ;; Reverse of above, take native namestring and make a Lisp pathname.
 (defun native-to-pathname (name)
--- level-1/linux-files.lisp.~1~	2007-05-12 17:30:05.000000000 -0700
+++ level-1/linux-files.lisp	2007-06-02 11:42:18.000000000 -0700
@@ -837,7 +837,7 @@
   (declare (ignore pty))
   (unless (every #'(lambda (a) (typep a 'simple-string)) args)
     (error "Program args must all be simple strings : ~s" args))
-  (push (native-translated-namestring program) args)
+  (push (native-untranslated-namestring program) args)
   (let* ((token (list 0))
 	 (in-fd nil)
 	 (in-stream nil)