AutoCad lisp routine has unexpected behavour with multiline attribute

I'm have problems with a Lisp routine that returns an error when it meets a multiline attribute. I ask it to pause for user imput and it just returns " \ unkown imput" andthen stops. I have a diesel version which works perfectly. The code is below, any ideas? (defun c:P01 (/ *error* Date LayoutNew Initials Clayer) ;; Error handler (defun *error* (msg) (if (not (member msg '("Function cancelled" "quit / exit abort"))) (princ (strcat "\nError: " msg)) ) (princ) ) ;; Check for paperspace (if (/= (getvar "CVPORT") 1) ;; Throw custom error (*error* "Command not allowed in Model Space") ;; Continue normally (progn (setq Date (menucmd "m=$(edtime,0,dd.mo.yyyy)")) (setq Initials "SMS") (setq LayoutNew (strcat (substr (getvar "CTAB") 1 5) "P01" (substr (getvar "CTAB") 9))) (setq Clayer (getvar "CLAYER")) (command "_.layout" "r" "" LayoutNew) (command "_.REGEN") (command "-layer" "t" "0" "m" "0" "") (command "attdia" "0") (command "_.Insert" "REVNOTE" pause 1 1 0 "P01" Date Initials pause) (command "attdia" "1") (command "-layer" "S" Clayer "") (command "REA") ) ) (prin1) )