--- tex.el	11 Oct 2006 02:52:36 +0200	5.590
+++ tex.el	30 Oct 2006 20:21:14 +0100	
@@ -682,6 +682,12 @@
 
 (when (featurep 'xemacs)
 
+  (defun TeX-read-string (&rest args)
+    (condition-case nil
+	(apply 'read-string args)
+      (wrong-number-of-arguments
+       (apply 'read-string (nbutlast args)))))
+
   (defun TeX-mark-active ()
     ;; In Lucid (mark) returns nil when not active.
     (if zmacs-regions
@@ -766,6 +772,8 @@
 
 (unless (featurep 'xemacs)
 
+  (defalias 'TeX-read-string 'read-string)
+
   (defun TeX-mark-active ()
     ;; In FSF 19 mark-active indicates if mark is active.
     mark-active)