--- a/lisp/files.el	Tue Feb 22 22:56:02 2011 +0100
+++ b/lisp/files.el	Thu Mar 17 23:42:59 2011 +0100
@@ -996,9 +996,9 @@
 			  (read-coding-system "Coding system: "))
 		     t))
   (let ((value (find-file filename codesys wildcards)))
-    (mapcar #'(lambda (buffer)
-		(set-symbol-value-in-buffer 'buffer-read-only t buffer))
-	    (if (listp value) value (list value)))
+    (mapc #'(lambda (buffer)
+              (set-symbol-value-in-buffer 'buffer-read-only t buffer))
+          (if (listp value) value (list value)))
     value))
 
 (defun find-file-read-only-other-window (filename &optional codesys wildcards)
@@ -4553,7 +4553,7 @@
 	  (and (car pair)
 	       (string-match "\\`/:" (car pair))
 	       (setcar pair
-		       (if (= (length (car pair)) 2)
+		       (if (eql (length (car pair)) 2)
 			   "/"
 			 (substring (car pair) 2)))))
 	(setq file-arg-indices (cdr file-arg-indices))))