Reacting to Reactors "HELP"

I know this topic has been posted before, but after reviewing previous post I am still not able to figure this out.

I want to set up a reactor to force load my plot log routine regardless of "plot" or ".plot"

I grabbed this code from previous post and have added "PLOG" routine to load.

Problems:
Command: plot
; error: too many arguments
; error: too many arguments

Command: .plot
; error: too many arguments
; error: too many arguments

If I type plot, my dialog loads with previous errors
If I type .plot, acad plot dialog loads

Any help would be greatly appreciated!

(if (not (member "VLARTS.ARX" (mapcar 'strcase (arx))))
(progn
;; Load it
(prompt "\nLoading Visual Lisp with ActiveX\n")
(arxload "VLARTS.ARX")
)
)
;; If Visual LISP isn't initialized ...
(if (not vl-load)
(progn
;; Initialize it
(prompt "\nInitializing Visual Lisp with ActiveX\n")
(vlarts-init)
)
)



(defun UpdatePlotDateReactor (/ TitleBlockEList PlotDateDXFList SelSet
Counter DateWasUpdated NewValue
);CallingReactorCommandList
;; If we are about to run the PLOT commmand ...
(setq CommandList (list "PLOT"))
(if
(= "PLOT" (car CommandList))
;;;(cmdend "PLOT" CommandList)
(cLOG)
)
) ;_ end defun

(defun ClotDateUpdate ()
(UpdatePlotDateReactor NIL '("PLOT"))
(prin1)
) ;_ end defun

(setq #QC_PlotReactor
(vlr-Editor-reactor
NIL
'(vlr-commandWillStart . UpdatePlotDateReactor))
) ;_ end vlr-Editor-reactor
) ;_ end setq

;(setq CommandList (list "PLOT"))
;(cmdend "PLOT" CommandList)