Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 14403)
+++ /trunk/source/level-1/linux-files.lisp	(revision 14404)
@@ -296,8 +296,8 @@
 (defun %rmdir (name)
   (let* ((last (1- (length name))))
+    (when (and (>= last 0)
+	       (eql (char name last) #\/))
+      (setq name (subseq name 0 last)))
     (with-filename-cstrs ((name name))
-      (when (and (>= last 0)
-		 (eql (%get-byte name last) (char-code #\/)))
-	(setf (%get-byte name last) 0))
       (int-errno-call (#+windows-target #__wrmdir #-windows-target #_rmdir  name)))))